एक्सेल वर्कबुक को बंद करते समय सभी वर्कशीट को स्वचालित रूप से कैसे सुरक्षित रखें?
आम तौर पर, आप Excel में प्रोटेक्ट शीट या प्रोटेक्ट वर्कबुक सुविधा के साथ किसी वर्कशीट या संपूर्ण वर्कबुक को पासवर्ड द्वारा मैन्युअल रूप से सुरक्षित कर सकते हैं। लेकिन यदि आप कार्यपुस्तिका बंद होने पर सभी कार्यपत्रकों को स्वचालित रूप से पासवर्ड से सुरक्षित करना चाहते हैं, तो आप क्या कर सकते हैं? यह आलेख आपको इसे प्राप्त करने के लिए एक VBA विधि दिखाएगा।
एक्सेल वर्कबुक को VBA कोड से बंद करते समय सभी वर्कशीट को सुरक्षित रखें
एक्सेल वर्कबुक को VBA कोड से बंद करते समय सभी वर्कशीट को सुरक्षित रखें
कार्यपुस्तिका बंद करते समय सभी कार्यपत्रकों को स्वचालित रूप से सुरक्षित रखने के लिए, कृपया निम्नलिखित VBA कोड लागू करें।
1. जिस कार्यपुस्तिका में आप फ़ाइल बंद करते समय सभी कार्यपत्रकों को सुरक्षित रखना चाहते हैं, कृपया दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल-क्लिक करें यह बाएँ फलक में, और फिर नीचे दिए गए VBA कोड को कोड विंडो में कॉपी करें। स्क्रीनशॉट देखें:
वीबीए कोड: कार्यपुस्तिका बंद करते समय सभी कार्यपत्रकों को सुरक्षित रखें
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = ""
For Each xSheet In Worksheets
xSheet.Protect xPsw
Next
End Sub
टिप्स:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub
3. फिर दबाएं ऑल्ट + Q एप्लिकेशन विंडो के लिए Microsoft Visual Basic को बंद करने के लिए कुंजियाँ।
उपरोक्त चरण के बाद, कार्यपुस्तिका बंद करते समय सभी कार्यपत्रक या निर्दिष्ट कार्यपत्रक स्वचालित रूप से सुरक्षित हो जाएंगे।
नोट्स:
संबंधित आलेख:
- एक्सेल में संरक्षित वर्कशीट में ड्रॉप डाउन सूची का उपयोग कैसे करें?
- एक्सेल में संपूर्ण वर्कशीट को सुरक्षित किए बिना निर्दिष्ट सेल को कैसे लॉक करें?
- एक्सेल में वर्कशीट को सुरक्षित किए बिना फॉर्मूला कैसे छिपाएं लेकिन परिणाम कैसे प्रदर्शित करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!