मैक्रो का उपयोग करके पासवर्ड सुरक्षा कैसे बनाएं
क्या आप यह सुनिश्चित करना चाहेंगे कि मैक्रो का उपयोग करके आपकी पसंद के फ़ोल्डर में सभी वर्कशीट पासवर्ड से सुरक्षित हैं? यह उपयोगी हो सकता है यदि आपको व्यक्तिगत रूप से कार्यपत्रकों की सुरक्षा करने में बहुत अधिक समस्या हो रही है या यदि आप निर्देशिका में सभी कार्यपुस्तिकाओं को स्वचालित रूप से सुरक्षित करना चाहते हैं। सक्रिय फ़ोल्डर में सभी कार्यपत्रकों को "सुरक्षा" पासवर्ड असाइन करने के लिए निम्न मैक्रो का उपयोग करें:
उप AllSchuetzen ()
वर्कशीट के रूप में मंद शीट
ActiveWorkbook.Worksheets में प्रत्येक शीट के लिए
Blatt.Protect ("सुरक्षा")
अगली शीट
अंत उप
"Schutz" पाठ के बजाय, अपनी पसंद के पासवर्ड का उपयोग करें। बेशक, यह प्रोग्राम कोड केवल तभी समझ में आता है जब आप इसे उस कार्यपुस्तिका के बाहर दर्ज करते हैं जिसमें आप सुरक्षा बना रहे हैं। अन्यथा, प्रत्येक उपयोगकर्ता वीबीए स्रोत टेक्स्ट में पासवर्ड पढ़ सकता है।
संरक्षित कार्यपत्रकों में कुछ बदलने में सक्षम होने के लिए, आपको सुरक्षा को हटाना होगा। आप इसे EXTRAS - PROTECTION - CANCEL LEAF PROTECTION कमांड के साथ मैन्युअल रूप से कर सकते हैं। यह आदेश केवल तभी उपलब्ध होता है जब वर्तमान कार्यपत्रक वास्तव में सुरक्षित हो।
यदि आप मैक्रो का उपयोग करके सभी संरक्षित कार्यपत्रकों को फिर से जारी करना चाहते हैं, तो निम्न प्रोग्राम कोड का उपयोग करें:
सब एक्सपोजर ()
वर्कशीट के रूप में मंद शीट
ActiveWorkbook.Worksheets में प्रत्येक शीट के लिए
Blatt.Unprotect ("सुरक्षा")
अगली शीट
अंत उप
