VBA के माध्यम से पासवर्ड से सुरक्षित फ़ाइल खोलें

Anonim

VBA के साथ पासवर्ड क्वेरी को कैसे बायपास करें

पासवर्ड-संरक्षित कार्यपुस्तिका खोलते समय, एक्सेल यह पासवर्ड मांगता है। यह निश्चित रूप से भी वांछित है, निम्न आंकड़ा दिखाता है कि पासवर्ड दर्ज करने के लिए विंडो कैसी दिखती है:

जब आप मैक्रो के साथ कोई कार्यपुस्तिका खोलते हैं, तो पासवर्ड दर्ज करना निश्चित रूप से बहुत कष्टप्रद होता है। हालाँकि, आप मैक्रो के साथ पासवर्ड क्वेरी को बायपास कर सकते हैं। निम्नलिखित प्रोग्राम कोड का प्रयोग करें:

सब ओपनपासवर्डफाइल ()
कार्यपुस्तिका के रूप में मंद मैपे
Mappe = Application.Workbooks.Open (फ़ाइल नाम: = "सी: \ फ़ाइलें \ सुरक्षा फ़ाइल। xls", पासवर्ड: = "पासवर्ड") सेट करें
अंत उप

बेशक, यह केवल तभी काम करता है जब आप पासवर्ड जानते हों। ऐसा करने के लिए, "पासवर्ड" टेक्स्ट को आपके द्वारा निर्दिष्ट पासवर्ड से बदलें। वस्तु चर का उपयोग करके फ़ोल्डर कार्यपुस्तिका खोलने के बाद आप वर्तमान में खुली कार्यपुस्तिका की कार्यपत्रकों तक आसानी से पहुंचने के लिए इस चर का उपयोग कर सकते हैं।