मुख्य सामग्री पर जाएं

एक्सेल वर्कबुक में हमेशा दिखाई देने वाली शीट की स्थिति को कैसे लॉक करें?

लेखक: रवि अंतिम संशोधित: 2020-09-22

यदि किसी कार्यपुस्तिका में कई शीट हैं, तो जब आप अंतिम एक शीट पर टॉगल करते हैं, तो पहली शीट शीट टैब बार में छिपी होगी जैसा कि नीचे दिखाया गया है। अब आप मास्टर शीट की स्थिति को हमेशा दृश्यमान रखने के लिए लॉक करना चाहते हैं, आप इसे कैसे संभाल सकते हैं?

डॉक्टर लॉक शीट स्थिति 1 दस्तावेज़ तीर दाएँ डॉक्टर लॉक शीट स्थिति 2

वीबीए के साथ शीट की स्थिति लॉक करें

वीबीए के साथ शीट की स्थिति लॉक करें

इस कार्य को संभालने के लिए यहां मैं आपके लिए दो वीबीए कोड प्रस्तुत करता हूं।

शीट पर कूदो

1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ विंडोज़ के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, फिर नीचे दिए गए कोड को स्क्रिप्ट में कॉपी और पेस्ट करें।

वीबीए: मास्टर शीट पर जाएं

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

नोट: के कोड स्लाइस में शीट्स("मास्टर").सक्रिय करें, आप बदल सकते हैं स्वामी किसी भी शीट के नाम पर, जैसा आपको चाहिए।

3. फिर इस कोड को सेव करें और वर्कबुक पर वापस जाकर क्लिक करें डेवलपर > मैक्रोज़.
डॉक्टर लॉक शीट स्थिति 3

4। में मैक्रो संवाद, आपके द्वारा अभी डाला गया कोड नाम चुनें, क्लिक करें ऑप्शंस, इस कोड को चलाने के लिए एक शॉर्टकट बनाएं।
डॉक्टर लॉक शीट स्थिति 4

5। क्लिक करें OK और बंद करें मैक्रो संवाद।

अभी से, जब आप अपने द्वारा बनाए गए शॉर्टकट को दबाते हैं, तो आप जिस भी शीट का उपयोग करते हैं, मास्टर शीट सक्रिय हो जाती है।

चादर सदैव सामने की ओर रखें

1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ विंडोज़ के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.

2। डबल क्लिक करें यह से परियोजना-वीबीएपरियोजना फलक, और नीचे दिए गए कोड को स्क्रिप्ट में कॉपी और पेस्ट करें।

वीबीए: शीट को हमेशा सामने रखें

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

डॉक्टर लॉक शीट स्थिति 5

3. कोड सहेजें और VBA विंडो बंद करें। अब से, आप जिस भी शीट पर क्लिक करेंगे, मास्टर शीट हमेशा टैब बार के सामने रहेगी।

डॉक्टर लॉक शीट स्थिति 6 दस्तावेज़ तीर दाएँ डॉक्टर लॉक शीट स्थिति 7

नोट: उपरोक्त कोड में, "मास्टर" यह वह शीट नाम है जिसे आप दृश्यमान रखना चाहते हैं, इसे अपनी आवश्यकतानुसार बदलें।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (3)
No ratings yet. Be the first to rate!
Francis
Francis
This comment was minimized by the moderator on the site
Hi there, Very helpfull. How can I freeze 2 sheets instead of one? Thanks (i'm beginner in VBA)
Reply
0
0
Sunny
Sunny     Francis
This comment was minimized by the moderator on the site
Hi, Francis, sorry for replying such late. Hope below VBA code can help you.<div data-tag="code">Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'UpdatebyExtendoffice20211115

Dim xSheet1 As Worksheet

Dim xSheet2 As Worksheet

Dim xBol As Boolean



Application.EnableEvents = False



xBol = Application.ScreenUpdating

Application.ScreenUpdating = False

Set xSheet1 = Sheets("Sheet1")

Set xSheet2 = Sheets("Sheet2")

If (Sh.Name <> xSheet1.Name) Then

If (Sh.Name <> xSheet2.Name) Then

xSheet2.Move , xSheet1

Sh.Move , xSheet2

xSheet1.Activate

xSheet2.Activate

Sh.Activate

End If

End If

Application.ScreenUpdating = xBol

Application.EnableEvents = True

End SubIn the code, Sheet1 and Sheet2 are the two sheets that will be fixed in the front of all sheets whichever sheet you active.
Reply
Report
0
0
Claire
Claire
This comment was minimized by the moderator on the site
This seems to change the order of my other tabs when clicking through them. Is there a way to stop that? I would like to keep them in a specific order but keep the 'master' tab visible. Thank you
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations