उपयोगकर्ताओं को मैक्रो सक्षम कार्यपुस्तिका के रूप में सहेजने के लिए कैसे बाध्य करें?
जब आप किसी Excel कार्यपुस्तिका को सहेजते हैं, तो इसे डिफ़ॉल्ट रूप से xlsx फ़ाइल स्वरूप के रूप में सहेजा जाएगा, और यदि एकाधिक कोड हैं तो यह फ़ाइल स्वरूप कार्यपुस्तिका से मैक्रो कोड से छुटकारा दिलाएगा। कोड रखने के लिए, आपको कार्यपुस्तिका को एक्सेल मैक्रो-सक्षम कार्यपुस्तिका प्रारूप के रूप में सहेजना चाहिए। आप उपयोगकर्ताओं को मैक्रो सक्षम कार्यपुस्तिका के रूप में सहेजने के लिए कैसे बाध्य कर सकते हैं?
उपयोगकर्ताओं को VBA कोड के साथ मैक्रो सक्षम कार्यपुस्तिका के रूप में सहेजने के लिए बाध्य करें
उपयोगकर्ताओं को VBA कोड के साथ मैक्रो सक्षम कार्यपुस्तिका के रूप में सहेजने के लिए बाध्य करें
कार्यपुस्तिका को डिफ़ॉल्ट रूप से मैक्रो सक्षम कार्यपुस्तिका के रूप में सहेजने के लिए, निम्नलिखित VBA कोड आपकी सहायता कर सकता है, कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. फिर डबल क्लिक करें यह नीचे वीबीएप्रोजेक्ट एक नया रिक्त मॉड्यूल खोलने के लिए अनुभाग, और फिर मॉड्यूल में निम्नलिखित कोड को कॉपी और पेस्ट करें:
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. फिर इस कोड विंडो को सहेजें और बंद करें, अब से, जब उपयोगकर्ता इस कार्यपुस्तिका को इस रूप में सहेजेंगे, तो इसे इस रूप में सहेजा जाएगा एक्सेल मैक्रो-सक्षम वर्कबुक दिखाए गए स्क्रीनशॉट के अनुसार डिफ़ॉल्ट रूप से प्रारूपित करें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!