Excel फ़ाइल खोलते समय विशिष्ट कार्यपत्रकों को स्वचालित रूप से कैसे छिपाएँ?
यदि किसी द्वारा कार्यपुस्तिका खोलने पर आपको कुछ विशिष्ट कार्यपत्रकों को स्वचालित रूप से छिपाने की आवश्यकता होती है, तो आप Excel में इस कार्य से कैसे निपट सकते हैं?
VBA कोड के साथ कार्यपुस्तिका खोलते समय एक विशिष्ट कार्यपत्रक को स्वचालित रूप से छिपाएँ
VBA कोड वाली कार्यपुस्तिका खोलते समय कुछ विशिष्ट कार्यपत्रक स्वचालित रूप से छिपाएँ
VBA कोड के साथ कार्यपुस्तिका खोलते समय एक विशिष्ट कार्यपत्रक को स्वचालित रूप से छिपाएँ
यदि आप कार्यपुस्तिका खोलते समय एक विशिष्ट कार्यपत्रक को छिपाना चाहते हैं, तो आप निम्नलिखित VBA कोड लागू कर सकते हैं।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. बाएँ में परियोजना-वीबीएपरियोजना फलक, डबल क्लिक करें यह एक रिक्त मॉड्यूल खोलने के लिए, और फिर निम्नलिखित कोड को कॉपी करके मॉड्यूल में पेस्ट करें:
VBA कोड: कार्यपुस्तिका खोलते समय एक विशिष्ट शीट छिपाएँ:
Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub
नोट: उपरोक्त कोड में, Sheet5 वह शीट नाम है जिसे आप खुले में छिपाना चाहते हैं। कृपया इसे अपनी आवश्यकता के अनुसार बदलें।
3. फिर इस कोड विंडो को सेव करें और बंद करें और क्लिक करें पट्टिका > इस रूप में सहेजें इस कार्यपुस्तिका को इस रूप में सहेजने के लिए एक्सेल मैक्रो-सक्षम वर्कबुक प्रारूप, स्क्रीनशॉट देखें:
4. जब आप अगली बार इस कार्यपुस्तिका को खोलें, तो कृपया क्लिक करें सामग्री को सक्षम करें सबसे पहले बटन दबाएं, और फिर आपकी निर्दिष्ट शीट स्वचालित रूप से छिप जाएगी।
VBA कोड वाली कार्यपुस्तिका खोलते समय कुछ विशिष्ट कार्यपत्रक स्वचालित रूप से छिपाएँ
यदि कार्यपुस्तिका खोलते समय कई कार्यपत्रकों को छिपाने की आवश्यकता होती है, तो यहां एक कोड भी आपकी सहायता कर सकता है।
1. सबसे पहले, आपको उन शीट नामों को सूचीबद्ध करना चाहिए जिन्हें आप वर्कशीट की सूची में खुले में छिपाना चाहते हैं, और फिर पर जाएं नाम बॉक्स उन्हें एक श्रेणी नाम देने के लिए-छुपाने के लिए चादरें, और प्रेस दर्ज कुंजी, स्क्रीनशॉट देखें:
2. फिर दबा कर रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
3. बाएँ में परियोजना-वीबीएपरियोजना फलक, डबल क्लिक करें यह एक रिक्त मॉड्यूल खोलने के लिए, और फिर निम्नलिखित कोड को कॉपी करके मॉड्यूल में पेस्ट करें:
VBA कोड: कार्यपुस्तिका खोलते समय कुछ विशिष्ट कार्यपत्रक छिपाएँ:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updateby Extendoffice 20161206
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
ws.Visible = xlSheetHidden
MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
Else
ws.Visible = xlSheetVisible
End If
Next ws
Set ws = Nothing
End Sub
नोट: उपरोक्त कोड में, छुपाने के लिए चादरें वह श्रेणी नाम है जिसे आपने चरण 1 में बनाया है।
4. फिर इस कोड विंडो को सेव करें और बंद करें और क्लिक करें पट्टिका > इस रूप में सहेजें इस कार्यपुस्तिका को इस रूप में सहेजने के लिए एक्सेल मैक्रो-सक्षम वर्कबुक प्रारूप। अब से, जब आप अगली बार इस कार्यपुस्तिका को खोलेंगे, तो निर्दिष्ट कार्यपत्रक स्वचालित रूप से छिप जाएंगे।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!