كود إجبار المستخدمين على الحفظ كمصنف تمكين ماكرو

كود إجبار المستخدم على حفظ المصنف مع تمكين الماكرو

عند حفظ مصنف إكسيل سيتم حفظه بتنسيق ملف على سبيل المثال  filename.xlsx بشكل افتراضي.

 وسوف يتخلص تنسيق الملف من أكواد ( رموز أو شفرات ) الماكرو من المصنف إذا كان هناك أكواد .

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

فالسؤال هنا :

 كيف يمكن إجبار المستخدمين على الحفظ كمصنف تمكين ماكرو؟

فرض المستخدمين لحفظ كمصنف تمكين ماكرو مع التعليمات البرمجية VBA

لحفظ المصنف كمصنف تمكين الماكرو بشكل افتراضي، قد تساعدك التعليمات البرمجية VBAالتالية.

 الخطوات

1.  اضغط ALT + F11 .
2. اضغط مرتين على ThisWorkbook
3. نسخ ولصق الشفرة البرمجية التالية

'فضلا عند استخدامك للشفرات البرمجية يجب ذكر المصدر
'https://elshriefacademy.blogspot.com

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim MZMFileName As String
If SaveAsUI <> False Then
    Cancel = True
    MZMFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
    If MZMFileName <> "False" Then
      Application.EnableEvents = False
      ActiveWorkbook.SaveAs Filename:=MZMFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      Application.EnableEvents = True
    Else
      MsgBox "Action Cancelled"
      Cancel = True
      Exit Sub
    End If
End If
End Sub