اجبار المستخدم لخفض مستوى أمان الماكرو فى اكسل

اجبار المستخدم لخفض مستوى أمان الماكرو فى اكسل

اجبار المستخدم لخفض مستوى أمان الماكرو فى اكسل

يمكنك استخدام الكود البرمجي التالي لإجبار المستخدم على خفض مستوى أمان الماكرو

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

لكى يعمل بالشكل المطلوب على أكمل وجه



 الخطوات 

1 - انشاء Sheet وتقوم بتسميته Warning
      تضع بالشيت معلومات عن كيفية خفض مستوى أمان الماكرو مثل :

1.      فضلا لا أمرا اتبع الخطوات التالية لكى يعمل معك المصنف بالشكل الصحيح
2.      من قائمة Developer اختر
3.      اضغط على Macro Security 
4.      من النافذة التى تظهر لك اختر الخيار الأخير Enable all Macros 
5.      ثم علم على الصندوق الذى بجوار جملة  Trust access to the VBA project Object Model 
6.      ثم اضغط على زر Ok بأسفل النافذة 
7.      ثم اضغط على زر Ok مرة أخري

       
2 - فتح محرر الأكواد (VBE) من خلال الضغط على زرين ( ALT + F11 ) .

3 - الضغط دبل كليك على ( ThisWorkbook ) على يسار الشاشة .

4 - ضع الكود البرمجي التالي ومن ثم حفظ المصنف بتمكين وحدات الماكرو

     (يمكنك مراجعة الجزء الأخير من درس Recording macros).


 الكود البرمجي كالتالي 

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Option Explicit
Const Warning As String = "Warning"


Private Sub Workbook_Open()
  Dim Ws As Worksheet
    Application.ScreenUpdating = False

     For Each Ws In ThisWorkbook.Worksheets
      Ws.Visible = xlSheetVisible

     Next Ws

   Sheets(Warning).Visible = xlVeryHidden
  Application.ScreenUpdating = True
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim Ws As Worksheet

   Application.ScreenUpdating = False
   Sheets(Warning).Visible = xlSheetVisible

    For Each Ws In ThisWorkbook.Worksheets

    If Ws.Name <> Warning Then

    Ws.Visible = xlVeryHidden

    End If

   Next Ws

   Application.ScreenUpdating = True
   ActiveWorkbook.Save
End Sub