एक्सेल आपको अपनी एक्सेल वर्कबुक को बदलावों से बचाने की क्षमता देता है। यह ट्यूटोरियल आपको दिखाएगा कि VBA का उपयोग करके कार्यपुस्तिका संरचना को कैसे सुरक्षित या असुरक्षित किया जाए।
वीबीए कार्यपुस्तिका सुरक्षा
VBA कार्यपुस्तिका सुरक्षा आपको कार्यपुस्तिका की संरचना को लॉक करने की अनुमति देती है। जब कोई कार्यपुस्तिका सुरक्षित की जाती है, तो उपयोगकर्ता कार्यपत्रकों को जोड़ने, हटाने, छिपाने/छिपाने, या सुरक्षित/असुरक्षित करने में असमर्थ होंगे। यदि आप एक मॉडल बना रहे हैं, तो संभवतः आप उपयोगकर्ताओं (या आप!) को गलती से कार्यपत्रकों को हटाने से रोकने के लिए कार्यपुस्तिका सुरक्षा चालू करना चाहते हैं।
अनप्रोटेक्ट वर्कबुक वीबीए
किसी कार्यपुस्तिका को असुरक्षित करने के लिए बस कोड की निम्न पंक्ति का उपयोग करें:
1 | कार्यपुस्तिकाएं ("पुस्तक 1")। असुरक्षित |
नोट: यह कोड तभी काम करेगा जब कार्यपुस्तिका सुरक्षित थी के बग़ैर एक पासवर्ड। यदि इसे पासवर्ड से सुरक्षित किया गया था, तो आपको इसे असुरक्षित करने के लिए पासवर्ड भी दर्ज करना होगा:
पासवर्ड के साथ अनप्रोटेक्ट वर्कबुक
कोड की यह पंक्ति उस कार्यपुस्तिका को असुरक्षित कर देगी जिसे पासवर्ड से सुरक्षित किया गया है:
1 | कार्यपुस्तिकाएं ("बुक 1")। असुरक्षित पासवर्ड: = "पासवर्ड" |
या आप पासवर्ड छोड़ सकते हैं:=
1 | कार्यपुस्तिकाएं ("पुस्तक 1")। असुरक्षित "पासवर्ड" |
इस कार्यपुस्तिका को सुरक्षित न रखें
यह कोड इस वर्कबुक को असुरक्षित करेगा (यह वर्कबुक वह वर्कबुक है जहां रनिंग कोड स्टोर किया जाता है। यह कभी नहीं बदलेगा)।
1 | यह कार्यपुस्तिका।असुरक्षित |
या पासवर्ड से इस कार्यपुस्तिका को असुरक्षित करें:
1 | यह कार्यपुस्तिका असुरक्षित "पासवर्ड" |
अनप्रोटेक्ट एक्टिव वर्कबुक
यह कोड ActiveWorbook को असुरक्षित करेगा।
1 | सक्रिय कार्यपुस्तिका। असुरक्षित |
या पासवर्ड के साथ ActiveWorkbook को असुरक्षित करें:
1 | ActiveWorkbook.Unसुरक्षित "पासवर्ड" |
सभी खुली कार्यपुस्तिकाओं को अनप्रोटेक्ट करें
यह कोड सभी खुली कार्यपुस्तिकाओं को असुरक्षित करेगा:
12345678 | उप असुरक्षित AllOpenWorkbooks ()कार्यपुस्तिका के रूप में मंद wbकार्यपुस्तिकाओं में प्रत्येक wb के लिएडब्ल्यूबी.असुरक्षितअगला डब्ल्यूबीअंत उप |
अनप्रोटेक्ट वर्कबुक - बिना पासवर्ड जाने
यदि आपको पासवर्ड जाने बिना किसी कार्यपुस्तिका को असुरक्षित करने की आवश्यकता है, तो सहायता के लिए कई ऐड-इन्स हैं। मैं रिबन कमांडर की सिफारिश करूंगा।
वर्कबुक में सभी शीट्स को अनप्रोटेक्ट करें
किसी कार्यपुस्तिका को असुरक्षित करने के बाद, हो सकता है कि आप कार्यपुस्तिका में सभी शीटों को असुरक्षित करना चाहें। यहां एक प्रक्रिया है जो सभी शीट को असुरक्षित करेगी:
12345678 | सब अनप्रोटेक्ट वर्कबुक एंड ऑलशीट्स ()वर्कशीट के रूप में डिम WSसक्रिय कार्यपुस्तिका। असुरक्षितवर्कशीट में प्रत्येक ws के लिएws.असुरक्षितअगलाअंत उप |
कार्यपुस्तिका को सुरक्षित रखें
आप कार्यपुस्तिका संरचनाओं को उसी तरह सुरक्षित कर सकते हैं जैसे आप असुरक्षित करते हैं।
कार्यपुस्तिका को सुरक्षित रखें पासवर्ड नहीं
कोड की यह पंक्ति एक कार्यपुस्तिका की रक्षा करेगी (कोई पासवर्ड नहीं)
1 | कार्यपुस्तिकाएं ("पुस्तक 1")। रक्षा करें |
नोट: मैं अक्सर पासवर्ड के बिना कार्यपुस्तिका सुरक्षा लागू करूंगा, बस इसे रोकने के लिए आकस्मिक कार्यपुस्तिकाओं में परिवर्तन।
पासवर्ड के साथ कार्यपुस्तिका को सुरक्षित रखें
यह कोड कार्यपुस्तिका संरचना की रक्षा करेगा (पासवर्ड के साथ)
1 | कार्यपुस्तिकाएं ("पुस्तक 1")। "पासवर्ड" को सुरक्षित रखें |
या:
1 | कार्यपुस्तिकाएं ("बुक 1")। पासवर्ड सुरक्षित रखें: = "पासवर्ड" |
पासवर्ड एक्सेल फ़ाइल को सुरक्षित रखें
कार्यपुस्तिका सुरक्षा के बजाय, आप संपूर्ण एक्सेल फ़ाइल को पासवर्ड-सुरक्षित करना चाह सकते हैं। वीबीए का उपयोग करके ऐसा करने के लिए, पासवर्ड के साथ कार्यपुस्तिका के रूप में सहेजें:
1 | कार्यपुस्तिकाएं ("बुक 1")। "पासवर्ड" के रूप में सहेजें |
कार्यपुस्तिका को सुरक्षित/असुरक्षित करें उदाहरण
संरक्षित कार्यपुस्तिका में सभी कार्यपत्रकों को दिखाएँ
यह प्रक्रिया किसी कार्यपुस्तिका को असुरक्षित कर देगी, सभी कार्यपत्रकों को छिपा देगी, और कार्यपुस्तिका को फिर से सुरक्षित कर देगी
12345678910 | उप असुरक्षितWB_Unhide_All_Sheets ()वर्कशीट के रूप में डिम WSसक्रिय कार्यपुस्तिका। असुरक्षितवर्कशीट में प्रत्येक ws के लिएws.Visible = xlSheetVisibleअगलाएक्टिव वर्कबुक.प्रोटेक्टअंत उप |
कार्यपुस्तिका और सभी पत्रक को सुरक्षित रखें
यह कार्यविधि किसी कार्यपुस्तिका में सभी कार्यपत्रकों की सुरक्षा करेगी और फिर कार्यपुस्तिका की सुरक्षा करेगी:
1234567891011 | सब प्रोटेक्टWB_Protect_All_Sheets ()वर्कशीट के रूप में डिम WSसक्रिय कार्यपुस्तिका। असुरक्षितवर्कशीट में प्रत्येक ws के लिएडब्ल्यूएस.प्रोटेक्टअगलाएक्टिव वर्कबुक.प्रोटेक्टअंत उप |
आप पासवर्ड सुरक्षा भी जोड़ सकते हैं:
1234567891011 | सब प्रोटेक्टWB_Protect_All_Sheets_Pswrd ()वर्कशीट के रूप में डिम WSActiveWorkbook.Unसुरक्षित "पासवर्ड"वर्कशीट में प्रत्येक ws के लिएws. "पासवर्ड" सुरक्षित रखेंअगलाActiveWorkbook.प्रोटेक्ट "पासवर्ड"अंत उप |