السلام عليكم هدا الكود ينفع اذا اردنا ان يكون ملفنا يتيما أي أن نضمن له ان يكون دائما مفتوحا على انفراد في نسخة منفصلة لبرنامج الاكسيل .. كنت قد كتبت هدا الكود قبل سنين و الأن أدخلت عليه بعض التحسينات المهمة أضف الكود التالي في ThisWorkbook Module : لكي يشتغل الكود ينبغي أولا حفض الملف بعد اضافة الكود  ثم اغلاقه ثم اعادة فتحه   Option Explicit Private WithEvents oAppEvents As Application Private oWb As Workbook Private Sub Workbook_Open() Dim oNewApp As New Application On Error G