यह ट्यूटोरियल आपको सिखाएगा कि वीबीए के साथ वर्कशीट्स को कैसे छिपाना और दिखाना है।
वीबीए में शीट छुपाएं
वीबीए में शीट को छिपाने के लिए, वर्कशीट विज़िबल प्रॉपर्टी का उपयोग करें।
या तो दृश्यमान संपत्ति को FALSE पर सेट करें:
| 1 | वर्कशीट्स ("शीट 1")। दृश्यमान = गलत |
या विज़िबल प्रॉपर्टी को xlSheetHidden पर सेट करें:
| 1 | वर्कशीट्स ("शीट 1")। दृश्यमान = xlSheetHidden |
यह वैसा ही है जैसे उपयोगकर्ता ने वर्कशीट टैब पर राइट-क्लिक किया और "छुपाएं" चुना।
शीट दिखाएँ
वीबीए में शीट को दिखाने के लिए, वर्कशीट विज़िबल प्रॉपर्टी का उपयोग करें:
| 1 | वर्कशीट्स ("शीट 1")। दृश्यमान = सत्य |
या
| 1 | वर्कशीट ("शीट 1")। दृश्यमान = xlSheetVisible |
वर्कशीट टैब क्षेत्र में राइट-क्लिक करके हिडन शीट्स को देखा जा सकता है:
बहुत छिपी हुई चादरें
शीट विज़िबल प्रॉपर्टी का तीसरा विकल्प है: xlSheetVeryHidden:
| 1 | वर्कशीट ("शीट 1")। दृश्यमान = xlSheetVeryHidden |
वर्कशीट टैब क्षेत्र में राइट-क्लिक करने पर बहुत छिपी हुई शीट छिपी होती है:
यह कोड स्प्रेडशीट उपयोगकर्ता को स्क्रीन के नीचे वर्कशीट टैब देखने से रोकेगा। जब वे नीचे टैब पर राइट-क्लिक करते हैं तो यह वर्कशीट को उपयोगकर्ता से छुपाता है। यह देखने का एकमात्र तरीका है कि वर्कशीट मौजूद है (या वर्कशीट को अनहाइड करें) विजुअल बेसिक एडिटर को खोलकर है।
वेरी हिडन शीट्स को अनहाइड करें
बहुत छिपी हुई वर्कशीट को नियमित रूप से छिपी हुई वर्कशीट की तरह ही दृश्यमान बनाया जाता है:
| 1 | वर्कशीट्स ("शीट 1")। दृश्यमान = सत्य |
या
| 1 | वर्कशीट ("शीट 1")। दृश्यमान = xlSheetVisible |
VBA संपादक में पत्रक छिपाएँ / प्रकट करें
आप VBA संपादक के भीतर वर्कशीट विज़िबल प्रॉपर्टी को भी टॉगल कर सकते हैं:
सभी वर्कशीट टैब छुपाएं
उपयोगकर्ता को विभिन्न कार्यपत्रकों पर नेविगेट करने से रोकने के लिए आप वर्कशीट टैब क्षेत्र को पूरी तरह से छिपाना भी चाह सकते हैं। वर्कशीट टैब छिपाने के बारे में और जानें।
रक्षित कार्यपुस्तिका में पत्रक छिपाएँ / प्रकट करें
इससे पहले कि आप कार्यपत्रकों को छुपा या प्रदर्शित कर सकें, आपकी कार्यपुस्तिका असुरक्षित होनी चाहिए। अपनी कार्यपुस्तिका संरचना को असुरक्षित करने के लिए निम्नलिखित कोड का उपयोग करें:
| 1 | सक्रिय कार्यपुस्तिका। असुरक्षित |
यदि आपकी कार्यपुस्तिका संरचना पासवर्ड से सुरक्षित है, तो आपको इसके बजाय यह करना होगा:
| 1 | यह कार्यपुस्तिका असुरक्षित "पासवर्ड" |
सभी पत्रक दिखाएँ
यह प्रक्रिया प्रत्येक लूप के लिए एक कार्यपुस्तिका में सभी कार्यपत्रकों को प्रदर्शित करेगी:
| 12345678 | सब अनहाइड_ऑल_शीट्स ()वर्कशीट के रूप में डिम WSसक्रिय कार्यपुस्तिका। असुरक्षितवर्कशीट में प्रत्येक ws के लिएws.Visible = xlSheetVisibleअगलाअंत उप |
ध्यान दें कि हम सबसे पहले कार्यपुस्तिका को असुरक्षित करते हैं, बस उस स्थिति में जब वह पासवर्ड से सुरक्षित थी।
