إذا كان من الممكن أن أدرج كود في العنصر ThisWorkbook وسيتم تنفيذه على اى شيت في ملف الإكسل
نعم ممكن
وميزة ذلك أن يتم التنفيذ مع أحد أحداث المصنف ككل و ليس الشيت
مثال
الكود التالى يؤدى مهمتين
الأولى تجميد الشاشةفى شيت الرئيسة و هو أحد شيتات المصنف
الثانية
يبدأ فتح الملف على شيت الرئيسة دون غيره
Private Sub Workbook_Open()
Sheets("الرئيسة").ScrollArea = "a1:c10"
'If ActiveSheet.CodeName <> "الرئيسة" Then
Sheets("الرئيسة").Select
'End If
End Sub
هنا المطلوب التحكم فى شيت و مواصفاته
فالسبيل إلى ذلك هو أبو الشيت
أقصد الأعلى منه فى المستوى و هو المصنف
هذا مثال
أما الكود فى المودويلات فمكانه عام
أنت تخصص له مكانا كزر أمر أو غيره و يستدعى عند الحاجة
مثلا كود لفتح نافذة عن طريق زر أمر
لا يناسب وضعه فى المصنف
لأن استدعاء هذه النافذة له وقته فى البرنامج
مثلا
الكود السابق يمكن وضعه فى مودويل
لكن يتم استدعاؤه من نفس المكان
وهو فتح المصنف
لأن الأكواد التى فى المودويلات
لا يتم فتحها مباشرة
لكن يتم استدعاؤها من الكائنات المرتبطة بها
و الله أعلم