كيف يمكنك إجبار المستخدمين على حفظ ملف مصنف Excel كملف ممكَّن للماكرو؟
عند حفظ ملف مصنف Excel، يُحفظ افتراضيًا بامتداد .xlsx، وهو تنسيق لا يدعم الماكرو وسيؤدي إلى إزالة أي أكواد ماكرو موجودة في المصنف. وللحفاظ على هذه الأكواد، يجب حفظ المصنف بتنسيق «مصنف Excel الممكَّن للماكرو». فكيف يمكنك إجبار المستخدمين على الحفظ بهذا التنسيق؟
إجبار المستخدمين على الحفظ كمصنف ممكَّن للماكرو باستخدام كود VBA
إجبار المستخدمين على الحفظ كمصنف ممكَّن للماكرو باستخدام كود VBA
لضمان حفظ المصنف تلقائيًا كمصنف ممكَّن للماكرو، يمكنك استخدام كود VBA التالي. يُرجى اتباع هذه الخطوات:
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. بعد ذلك، انقر نقرًا مزدوجًا علىThisWorkbook ضمن قسمVBAProject لفتح وحدة جديدة فارغة، ثم انسخ والصق الكود التالي في الوحدة:
كود VBA: إجبار الحفظ كمصنف ممكَّن للماكرو افتراضيًا:
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 لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل