كيف تجبر المستخدمين على الحفظ كمصنف ممكن بماكرو؟
عند حفظ مصنف Excel ، سيتم حفظه بتنسيق ملف xlsx افتراضيًا ، وسيتخلص تنسيق الملف هذا من أكواد الماكرو من المصنف في حالة وجود أكواد متعددة. للاحتفاظ بالرموز ، يجب عليك حفظ المصنف بتنسيق Excel Macro-Enable Workbook. كيف يمكنك إجبار المستخدمين على الحفظ كمصنف ممكن بماكرو؟
إجبار المستخدمين على الحفظ كمصنف ممكّن لماكرو برمز VBA
إجبار المستخدمين على الحفظ كمصنف ممكّن لماكرو برمز VBA
لحفظ المصنف كمصنف ممكّن للماكرو افتراضيًا ، قد تساعدك التعليمات البرمجية لـ VBA التالية ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم انقر نقرًا مزدوجًا ThisWorkbook تحت مشروع VBAP لفتح وحدة نمطية جديدة فارغة ، ثم انسخ الكود التالي والصقه في الوحدة النمطية:
رمز فبا: فرض حفظ المصنف كمصنف تم تمكين الماكرو افتراضيًا:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updateby Extendoffice
Dim xFileName As String
If SaveAsUI <> False Then
Cancel = True
xFileName = Application.GetSaveAsFilename(, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As xlsm file")
If xFileName <> "False" Then
Application.EnableEvents = False
ActiveWorkbook.SaveAs Filename:=xFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.EnableEvents = True
Else
MsgBox "Action Cancelled"
Cancel = True
Exit Sub
End If
End If
End Sub
3. ثم احفظ وأغلق نافذة التعليمات البرمجية هذه ، من الآن فصاعدًا ، عندما يقوم المستخدمون بحفظ هذا المصنف ، سيتم حفظه باسم مصنف Excel ممكن بماكرو التنسيق افتراضيًا كما هو موضح في لقطة الشاشة التالية:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!