أ / محمد صالح

يبدو أن حضرتك ما لاحظت هذا الجزء Filename:=ThisWorkbook.Path & "\mas.jpg" وهو يعني في نفس مسار المصنف باسم mas. jpg

جميعا بإذن الله

يمكنك استعمال هذا الكود Sub rng2jpg(Rng As Range) Dim Chrt As ChartObject Rng.CopyPicture xlScreen, xlPicture Set Chrt = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=Rng.Width, Height:=Rng.Height) Chrt.Activate With Chrt.Chart .Paste .Export Filename:=ThisWorkbook.Path & "\mas.jpg", Filtername:="JPG" End With oChrtO.Delete MsgBox "Done by mr-mas.com" End Sub ولاستدعائه Sub mas() rng2jpg Range("a1:f20") End sub وتم فصل الإجراءين لسهولة التعامل مع الكود في أكثر من شيت ويمكن الاستغناء عن الإجراء الثاني إذا أضفنا تحديد النطاق إلى الإجراء الأول كما في السطر الثالث ليصبح Sub rng2jpg() Dim rng As Range, Chrt As ChartObject Set Rng = Range("a1:f20") Rng.CopyPicture xlScreen, xlPicture Set Chrt = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=Rng.Width, Height:=Rng.Height) Chrt.Activate With Chrt.Chart .Paste .Export Filename:=ThisWorkbook.Path & "\mas.jpg", Filtername:="JPG" End With Chrt.Delete MsgBox "Done by mr-mas.com" End Sub بالتوفيق

كل هذا يتوقف على أماكن البيانات والدرجات في ملفك وإذا ما أردت إرفاق ملفك أو مثال يخص المطلوب فربما يفيدك هذا الموضوع بالتوفيق

ما الخطوات التي تقوم بها لمعرفة سبب المشكلة

جميعا بإذن الله

بارك الله لك مجموعة خطوط قيمة

يبدو أن حضرتك نسخت الشيت ولم تنسخ الأكواد التي كانت في الملف القديم Sama1 & sama2 & sama2012 بالتوفيق

نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

نعم يمكن

مادام المستخدم ضغط على تمكين المحتوى إذن الأكواد تعمل لا مشكلة في أن يرى كل منهم أسماء جميع الشيتات في تبويبات الشيتات فعندما يفتح المستخدم أي شيت يأتي دور الصلاحيات فإذا كان مسموحا له تم الفتح وإلا تتم إعادة توجيهه إلى صفحته ربما تكون المشكلة في نظام الصلاحيات المتبع لديكم في الملف

هل هذا بعد الضغط على تمكين المحتوى من كل مستخدم؟؟!!

مشاركة المصنف من تبويب review لا تعطل الأكواد الذي يعطل الأكواد عدم سماح المستخدم للأكواد بعدم الضغط على تمكين المحتوى enable content في بداية فتح الملف

إن شاء الله سليم والتجربة خير برهان طبعا مع تعديل أسماء الجداول في المصفوفة table1 & table2 & table3 وهكذا

في حالتك هذه أ/ @TAMER AGOOR يمكنك اختصار الكود ووضع أسماء الجداول التي سيتم حذف بياناتها في مصفوفة myT = Array("table1", "table2", "table3") DoCmd.SetWarnings False For Each T In myT DoCmd.RunSQL "DELETE * FROM " & T & ";" Next T DoCmd.SetWarnings True بالتوفيق

بارك الله لك أ / @عبدالله الصاري تبقى شيء حتى يظل تنسيق التاريخ كما هو حذف هذا السطر من اجراء sama2 Sheets("كشف الحساب").Range("A5:h10000").ClearFormats بالتوفيق

لعمل ذلك يمكنك اتباع الآتي: الضغط في اي مكان فارغ في الرسم البياني من تبويب تنسيق format نختار من القائمة الأولى المحور أفقي (فئة) Horizontal (category) Axis ثم نضغط على تحديد التنسيق format selection أسفل القائمة مباشرة في لوحة المهام اليمنى التي ظهرت نضغط على الفئات في ترتيب عكسي Category in reverse order بالتوفيق

رغم أن حذف بيانات جميع جداول قاعدة البيانات شيء غير منطقي لكن يمكنك استعمال هذا الكود DoCmd.SetWarnings False Dim T As TableDef For Each T In CurrentDb.TableDefs If Not (T.Name Like "MSys*" Or T.Name Like "~*" Or Len(T.Connect) > 0) Then DoCmd.RunSQL "DELETE * FROM " & "[" & T.Name & "]" End If Next T DoCmd.SetWarnings True بالتوفيق

الكود المرفق مني يعمل على جميع الإصدارات بشرط تفعيل مرجع اكسل من أدوات tools مراجع refrences مع إلغاء مرجع اكسل 16 إذا ظهر كمرجع مفقود وليس شرطا رقم 16 حيث يختلف الرقم حسب اصدار الأوفيس أما بالنسبة لجدول أخطاء الاستيراد فربما لعدم استيراد جميع الأعمدة كما قلت سابقا أو اختلاف ترتيب الحقول

ليس شرطا اوفيس 2016 @Eng.Qassim الكود يعمل على جميع الاصدارات

بارك الله لك أخي @د.كاف يار رجاء من كل رواد منتدى الأكسس قراءة ما يخص الاقتباس في توقيعي

مادام الملف يعمل عندي يفترض أن يعمل عندك بدون إضافة مراجع فقد تمت إضافة المرجع عندي وإذا كنت لم تقم بأي تغيرات هل يظهر لك في نافذة المراجع في قائمة أدوات مرجع مفقود missing reference ؟ يخص ميكروسوفت اكسل (16) وهو رقم اكسل 365 إذا كان يظهر يجب حذف علامة الصح بجواره لأن الرسالة السابقة تعني تعارض في تسمية الموديول أو المشروع أو المرجع بالتوفيق

سؤال مبدئي هل الملف المرفق مني يعمل بكفاءة عندك قبل أي تعديل عليه؟ نأتي لظهور الأخطاء يفضل ذكر ما قمت به من خطوات بالتفصيل بعد تجربتك للمرفق السابق حتى نتوصل لسبب الخطأ

لا يوجد مشكلة في الأوفيس يوجد فقط عدم التزام بالتعليمات والخطوات بالتفصيل في السطر الأخضر فوق سطر الخطأ (في حالة نسخ النموذج إلى قاعدة بيانات أخرى ) بالتوفيق

خلية الاكسل تتحمل حتى 15 رقم ولكتابة أكثر من 15 يمكن تنسيق الخلية كنص text قبل الكتابة من تنسيق خلايا format cells كما في هذه الصورة بالتوفيق