تمكين وحدات الماكرو تلقائياً

[الأمير هشام]

 هل يمكن عمل كود يمكن عند  فتح ملف أكسل أن يمكن وحدات الماكرو تلقائياً بدون الحاجة لظهور هده الرساله  المرفقة

 

[ياسر خليل أبو البراء]

أخي الكريم الأمير هشام

إليك هذا الفيديو قم بتنفيذ الإعدادات مرة واحدة وستتخلص من تلك الرسائل

[رشراش]

اصبح الفديو غير متوفر

[Ali Mohamed Ali]

تفضل اخى

 

[رشراش]

شكرا....

هذا يفي بالغرض.....

لكن هل هناك كود يمكن تضمينه للملف بحيث يفعل تمكين وحدات الماكرو آليا عند فتح الملف مباشرة؟...

 

[Mohdbns3id]

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

ابحث عن نفس الطريقه نرجوا التكرم بالمساعده

[Ali Mohamed Ali]

ممكن استخدام هذا الكود فى حدث الصفحة

Option Explicit
 
Const WelcomePage = "Macros"
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     'Turn off events to prevent unwanted loops
    Application.EnableEvents = False
     
     'Evaluate if workbook is saved and emulate default propmts
    With ThisWorkbook
        If Not .Saved Then
            Select Case MsgBox("Do you want to save the changes you made to '" & .Name & "'?", _
                vbYesNoCancel + vbExclamation)
            Case Is = vbYes
                 'Call customized save routine
                Call CustomSave
            Case Is = vbNo
                 'Do not save
            Case Is = vbCancel
                 'Set up procedure to cancel close
                Cancel = True
            End Select
        End If
         
         'If Cancel was clicked, turn events back on and cancel close,
         'otherwise close the workbook without saving further changes
        If Not Cancel = True Then
            .Saved = True
            Application.EnableEvents = True
            .Close savechanges:=False
        Else
            Application.EnableEvents = True
        End If
    End With
End Sub

 

[هانى محمد]

وممكن تجرب هذا

 

ملف اكسل تنفيذي لتمكين وحدات الماكرو.rar

[عبد العزيز البسكري]

بارك الله فيكم