تحميل برنامج يومية الايرادات والمصروفات مجانى 100 %

 

بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس

 

اكسيل VBA| اجبار المستخدم على تفعيل الماكرو فى ملف الاكسل

 

هل تعرف كيفية تشغيل الماكرو او تعطلية فى برنامج الاكسل

 يتم ذلك من خلال الانتقال الى تبوير المطور Developer  ثم Macro Security  

ثم نختار الخيار الاول لتعطيل الماكرو 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