Excel में Save & Save As विकल्प को कैसे अक्षम करें या अनुमति न दें?
आम तौर पर, जब हम Save या Save As फ़ंक्शन पर क्लिक करते हैं, तो कार्यपुस्तिका में हमारा संशोधित डेटा तुरंत सहेजा जाएगा। लेकिन, कभी-कभी, जब अन्य उपयोगकर्ता फ़ाइल पढ़ते हैं तो आपकी एक्सेल फ़ाइल को संशोधित और सहेजने की अनुमति नहीं होती है। यह आलेख Excel में Save & Save As विकल्पों को अक्षम करने के लिए VBA विधि प्रदान करता है।
VBA कोड के साथ Save & Save As विकल्प को अक्षम करें
VBA कोड के साथ Save & Save As विकल्प को अक्षम करें
एक्सेल में सेव और सेव एज़ विकल्पों को अक्षम करने के लिए आप नीचे दिए गए वीबीए कोड को चला सकते हैं।
1. कार्यपुस्तिका में आपको Save & Save As फ़ंक्शन को अक्षम करने की आवश्यकता है, कृपया दबाएँ ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह बाएं बार में, नीचे दिए गए VBA 1 को कॉपी करके कोड विंडो में पेस्ट करें और फिर क्लिक करें सहेजें बटन। स्क्रीनशॉट देखें:
वीबीए 1: एक्सेल में सेव और सेव एज़ विकल्प को अक्षम करें
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. उद्घाटन में इस रूप में सहेजें विंडो, कार्यपुस्तिका को सहेजने के लिए एक फ़ोल्डर का चयन करें, कार्यपुस्तिका को अपनी आवश्यकता के अनुसार नाम दें और चुनें एक्सेल मैक्रो-सक्षम वर्कबुक से प्रकार के रूप में सहेजें ड्रॉप-डाउन सूची, और अंत में क्लिक करें सहेजें बटन.
4. अब नीचे दिए गए VBA 2 को कॉपी करके पेस्ट करें यह कोड विंडो. स्क्रीनशॉट देखें.
वीबीए 2: एक्सेल में सेव और सेव एज़ विकल्प को अक्षम करें
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"
If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
Sheets(xName & "").Visible = False
Exit Sub
End If
Cancel = True
End Sub
5. क्लिक करें सहेजें कोड को सहेजने के लिए बटन दबाएं, और फिर कार्यपुस्तिका बंद करें।
कार्यपुस्तिका को एक्सेल मैक्रो-सक्षम कार्यपुस्तिका के रूप में सहेजा गया है सहेजें और इस रूप में सहेजें कार्य अक्षम।
नोट: ऐसा लगता है कि हर बार जब आप कार्यपुस्तिका को संशोधित और सहेजते हैं तो परिवर्तन वर्तमान कार्यपत्रक में सहेजे जाते हैं। लेकिन कार्यपुस्तिका को बंद करने और फिर से खोलने के बाद, आप पाएंगे कि परिवर्तन सहेजने में विफल रहे।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!