الماكرو يغير اعدادات كافة ملفات الاكسيل

[سعيد 1428]

الإخوة الأفاضل 

السلام عليكم 

عندي ملف اكسيل يوجد فيه ماكرو يقوم بمجموعة من التأثيرات على الملف عند فتحه ولكن الاشكال هو أن بعد الخروج من الملف وتشغيل أي ملف اكسيل ثاني 

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

وعليه ارجو المساعدة في حل هذا الاشكال 

وشكرا 

Private Sub Workbook_Open()
'Worksheets("MINE").Activate
'With thisApplication
'Application.ScreenUpdating = False
'Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"
'Application.DisplayFormulaBar = False
'ActiveWindow.DisplayHeadings = False
'Application.DisplayScrollBars = False
'Application.DisplayStatusBar = False
'Application.ScreenUpdating = True
'      End With
end sub

 

[احمد بدره]

عليك السلام ورحمة الله وبركاته

لكي يقوم الإكسيل بالإرجاع للإعدادات الافتراضية عند غلق الملف

ضع هذا  الكود في حدث ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("MINE").Activate
With thisApplication
Application.ScreenUpdating = True
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",True)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = True
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
      End With
End Sub

 

[سعيد 1428]

احسن الله إليكم