मेरे पास मेरी कार्यपुस्तिका (एक्सेल स्प्रेडशीट) में लगभग 25 वर्कशीट हैं। क्या कोई तरीका है कि मैं एक ही क्लिक में सभी 25 कार्यपत्रकों की रक्षा कर सकता हूं? या यह सुविधा उपलब्ध नहीं है और इसे पूरा करने के लिए मुझे एक वीबीए कोड लिखना होगा। मुझे सभी चादरों की रक्षा करने और सभी चादरों को असुरक्षित करने और व्यक्तिगत रूप से करने में समय लगता हैमैं एक वर्कशीट में एक ही क्लिक के साथ सभी वर्कशीट की रक्षा कैसे करूं?
मुझे विश्वास नहीं है कि वीबीए के प्रयोग किए बिना ऐसा करने का कोई तरीका है।
Dim ws as Worksheet
Dim pwd as String
pwd = "" ' Put your password here
For Each ws In Worksheets
ws.Protect Password:=pwd
Next ws
Unprotecting वस्तुतः एक ही है: यदि आप एक VBA समाधान में रुचि रखते हैं, यहाँ कोड है
Dim ws as Worksheet
Dim pwd as String
pwd = "" ' Put your password here
For Each ws In Worksheets
ws.Unprotect Password:=pwd
Next ws
वहाँ यह करने के लिए एक बटन है मत सोचो, लेकिन यह सरल पर्याप्त कोड है :
के लिए प्रत्येक protSheet में कार्यपत्रक protSheet.Protect पासवर्ड: = "बू" अगला protSheet
आप कर सकते हैं संरक्षण प्रत्येक शीट की बजाय कार्यपुस्तिका नहीं है और यह पूरे कार्यपुस्तिका में बदलावों को रोक देगा
आप उपयोगकर्ता परिवर्तनों से सभी कार्यपत्रकों की रक्षा कर सकते हैं लेकिन फिर भी वीबीए स्क्रिप्ट को "UserInterfaceOnly" विकल्प के साथ परिवर्तन करने की अनुमति देते हैं।
Dim ws as Worksheet
Dim pwd as String
pwd = "" ' Put your password here
For Each ws In Worksheets
ws.Unprotect Password:=pwd
Next ws
आप इस का उपयोग कर सकते हैं:
Dim ws as Worksheet
Dim pwd as String
pwd = "" ' Put your password here
or Each ws In Worksheets
ws.Protect Password:=pwd, UserInterfaceOnly:=True
Next ws
Unprotecting समाधान बेन Hoffstein द्वारा की पेशकश के रूप में ही है: इस तरीके को आप की रक्षा और हर बार असुरक्षित बिना कार्यपत्रक पर किसी भी VBA स्क्रिप्ट चलाने की सुविधा देता है एक बटन/शॉर्टकट के साथ मैक्रो। एक्सेल 2010 में आप क्विक एक्सेस टूलबार पर राइट-क्लिक करें और "क्विक एक्सेस टूलबार कस्टमाइज़ करें" का चयन करें। कमांड चुनने के लिए ड्रॉप डाउन मेनू में, "मैक्रोज़" चुनें। फिर सुरक्षा (या असुरक्षित) के लिए बनाए गए वीबीए स्क्रिप्ट पर क्लिक करें। अंत में इसे "जोड़ें>>" बटन पर क्लिक करें और फिर इसे सहेजने के लिए "ठीक" पर क्लिक करें।