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

Excel में सुरक्षित वर्कशीट में ऑब्जेक्ट संपादित करने की अनुमति कैसे दें?

लेखक: सिलुविया अंतिम संशोधित: 2020-07-09

डिफ़ॉल्ट रूप से, वर्कशीट की सुरक्षा के बाद सम्मिलित ऑब्जेक्ट जैसे आकार, टेक्स्ट बॉक्स को संपादित नहीं किया जा सकता है। यदि आपको किसी संरक्षित वर्कशीट में ऑब्जेक्ट को संपादित करने की आवश्यकता है, तो कृपया इस आलेख में दिए गए तरीकों को आज़माएँ।

ऑब्जेक्ट संपादित करें विकल्प को चेक करके संरक्षित वर्कशीट में ऑब्जेक्ट संपादित करने की अनुमति दें
VBA कोड के साथ संरक्षित वर्कशीट में ऑब्जेक्ट संपादित करने की अनुमति दें

ऑब्जेक्ट संपादित करें विकल्प को चेक करके संरक्षित वर्कशीट में ऑब्जेक्ट संपादित करने की अनुमति दें

वर्कशीट की सुरक्षा से पहले ऑब्जेक्ट को संपादित करने की अनुमति देने के लिए कृपया ऑब्जेक्ट संपादित करें विकल्प की जाँच करें। कृपया निम्नानुसार करें.

1। क्लिक करें समीक्षा > शीट को सुरक्षित रखें.

2। में शीट को सुरक्षित रखें संवाद बॉक्स में, एक पासवर्ड निर्दिष्ट करें पासवर्ड को असुरक्षित करने के लिए पासवर्ड बॉक्स, और जाँच करें वस्तुओं को संपादित करें इस वर्कशीट के सभी उपयोगकर्ताओं को अनुमति दें बॉक्स में बॉक्स पर क्लिक करें OK बटन। में अपने पासवर्ड की पुष्टि करें पासवर्ड की पुष्टि संवाद बकस। स्क्रीनशॉट देखें:

अब वर्कशीट सुरक्षित है और इस संरक्षित वर्कशीट में सभी ऑब्जेक्ट संपादन योग्य हैं।

VBA कोड के साथ संरक्षित वर्कशीट में ऑब्जेक्ट संपादित करने की अनुमति दें

यदि वर्कशीट पहले से ही सुरक्षित है, तो आप ऑब्जेक्ट को संपादित करने की अनुमति देने के लिए नीचे दी गई VBA स्क्रिप्ट आज़मा सकते हैं। कृपया निम्नानुसार करें.

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

2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, डबल क्लिक करें यह बाएँ में परियोजना फलक. फिर नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें यह कार्यपुस्तिका (कोड) खिड़की.

वीबीए कोड: संरक्षित वर्कशीट में ऑब्जेक्ट संपादित करने की अनुमति दें

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

नोट: कोड में, शीट3 संरक्षित वर्कशीट है जिसमें वे ऑब्जेक्ट शामिल हैं जिन्हें आपको संपादित करने की आवश्यकता है। और नंबर "123" संरक्षित शीट का पासवर्ड है। कृपया उन्हें आवश्यकतानुसार बदलें।

3। दबाएं F5 कोड को चलाने के लिए कुंजियाँ, और इस संरक्षित वर्कशीट में सभी ऑब्जेक्ट तुरंत संपादन योग्य हैं।

संबंधित लेख:

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

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

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

Description

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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (1)
No ratings yet. Be the first to rate!
Vanessa
Vanessa
This comment was minimized by the moderator on the site
Hi,
thanks for the helpful article. I tried the VBA Code method but it doesn't quite work for me.


My Code (sorry for formatting, couldn't copy&past it):


Sub Workbook_Open ()

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = True

If ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=True

End If

With Worksheets ("Sheet1")

.EnableOutlining = True

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

End With

Next ws

End Sub


It works just fine but as soon as I'm saving, closing and reopening the file, I am either

- requested to insert the Password (like 5 times) immediately or

- able to remove the protection without any Password for one of the worksheets (usually "Sheet1" as in the Code)


Is somebody getting the same error as me? Or can somebody help me?


Thank you in advance.


BR

Vanessa
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