بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
اكسيل VBA| اجبار المستخدم على تفعيل الماكرو فى ملف الاكسل
هل تعرف كيفية تشغيل الماكرو او تعطلية فى برنامج الاكسل
ثم نختار
الخيار الاول لتعطيل الماكرو Disable
All Macros Without notification
ولتفعيل
الماكرو مرة اخرى نختار Enable All Macros
كيف نقوم بعمل ذلك
أولاً :
فى
البداية سوف نقوم بانشاء ورقة عمل جديدة وسنقوم بتسمية ورقة العمل باسم Test
ثانياً :
ثالثاً :
فتح محر الاكواد من خلال تابة
المطور Developer
Tab ثم فتح حدث Workbook_open
ولصق هذا الكود بداخلة
Private Sub Workbook_Open()
Dim Ws As Worksheet
Application.ScreenUpdating
= False
For Each Ws In
ThisWorkbook.Worksheets
Ws.Visible =
xlSheetVisible
Next Ws
Sheets("Test ").Visible
= xlVeryHidden
Application.ScreenUpdating
= True
End Sub
: رابعا
ثم بعد ذلك فى حدث Workbook_BeforeClose نقوم بكتابة الكود التالى
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ws As Worksheet
Application.ScreenUpdating = False
Sheets(Test).Visible
= xlSheetVisible
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name
<> Test Then
Ws.Visible =
xlVeryHidden
End If
Next Ws
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub