Protect Column – Excel VBA in Hindi / Excel VBA to Protect and Unprotect Columns in Hindi – इस पोस्ट मे हम Excel में VBA coding के उपयोग से वर्कबुक, वर्कशीट के cell को lock और unlock करना सीखेंगे, इसके अलावा हम कोड को रन करके भी देखेंगे, मैंने पिछले पोस्ट में If-ElseIf-Else, vbAbortRetryIgnore Statement को अच्छे से बताया हैं, तथा इसके कुछ उदाहरण भी दिए हैं।
डाटा लॉकिंग, वर्कशीट / वर्कबुक में बहुत ज्यादा जरुरी होता हैं, इसको आप निचे दिए गए चार उदाहरण से समझे, की यदि आप के पास कुछ डाटा एक्सेल में हैं, और आप चाहते हैं, की वो डाटा, आप अपने साथ काम करने वालो में कुछ इस तरह बाटा जाये की,
1 – उपयोगकर्ता सिर्फ वर्कशीट / वर्कबुक के डाटा को देख पाए पर, उसे बदल ना पाए।
2 – उपयोगकर्ता सिर्फ वर्कशीट के कुछ स्थान( वर्कशीट के Cells ) के डाटा को ही बदल पाए, और कुछ स्थान ( वर्कशीट के Cells ) को सिर्फ देख पायें, पर उसे बदल ना पायें ।
3 – उपयोगकर्ता सिर्फ, जो cells दिखाई दे रहे है, उसे पर ही काम करे, और छिपाये गए cells को प्रकट ( unhide ) या देख ना कर पायें।
4 – उपयोगकर्ता एक्सेल शीट के फॉर्मेट( यानी की रंग , font के आकार आदि ) को बदल ना पायें
5 – उपयोगकर्ता वर्कबुक में और कोई वर्क शीट ना जोड़ सके तथा ना तो मिटा सके।
ऊपर दिए गए उदाहरण को प्रैक्टिकल ( व्यावहारिक ) रूप में इसतरह से समझा जा सकता हैं, मान लीजिये की, XYZ कंपनी के सेल्स मैनेजर को 2021 का सेल्स प्लान बनाना हैं, कंपनी जीन्स पैन्ट्स की मनुफेक्चरिंग और सेल्स करती हैं, कम्पनी के 20 स्टोर्स हैं, तो वो हर शोरूम को सेल्स का टारगेट दे देंगे, ऐसा वो पिछले साल के एक्चुअल सेल्स रिपोर्ट को देख कर करेंगे, और डाटा सिर्फ प्लान के कॉलम में ही डाल पाएंगे, क्योकि एक्चुअल का डाटा कोई बदल नहीं सकता, जैसा की इमेज में दिया गया हैं, पिले रंग के स्थान पर ही यूजर डाटा लिख / टाइप कर सकता हैं , क्योकि वो प्लान डाटा का जगह हैं, बाकि सब यूजर सिर्फ पढ़ सकते हैं, पर बदल नहीं सकते है, जैसा की निचे दिए हुए स्क्रीन में १ स्क्रीन में आप को सभी columns / rows सफेद रंग में हैं, और उपयोगकर्ता सभी columns / rows को बदल सकते हैं, पर २ स्क्रीन में आप देखेंगे की कॉलम K 7 से K 26 तक पीला रंग हैं, जिसमे उपयोगकर्ता नंबर बदल सकते हैं, और D 7 से D 26 तक तथा I 7 से
I 26 तक उपयोगकर्ता विवरण / नंबर नहीं बदल सकते हैं।
जैसा की आप स्क्रीन में देख सकते है, की मैंने एक्सेलशीट में दो बटन बनाये हैं(आप भी अपने एक्सेल शीट में दो इसी तरह के बटन बना लीजिये, और निचे दिए गए coding को अपने एक्सेलशीट में लिख दे ),
पहला बटन – Actual Locked – जिसको जिसको दबाने से कॉलम K के K 7 से K 26 तक का Row पीले रंग का हो जाएगा, मतलब उपयोगकर्ता सिर्फ इसी वैल्यू को बदल पांयेंगे और D 7 से D 26 तक तथा I 7 से I 26 तक का रंग भी रंग बदल जाएगा, जिसका मतलब उपयोगकर्ता, इसकी कोई भी वैल्यू बदल नहीं पाएंगे।
और दूसरा बटन Actual Unlocked – जिसको दबाने से कॉलम K के K 7 से K 26 और D 7 से D 26 तक तथा I 7 से I 26 तक का रंग का भी रंग बदल जाएगा, मतलब उपयोगकर्ता अब सभी Rows / Columns के वैल्यूज को बदल पाएंगे।
अब हम दोनों बटन के लॉजिक को समझेंगे।
पहला बटन – “Actual Locked ” का कोड –
Sub LockButton_Click()
ActiveWorkbook.Sheets(“Sales_Plan”).Range(“D7:D26”).Locked = True
ActiveWorkbook.Sheets(“Sales_Plan”).Range(“I7:I26”).Locked = True
Range(“D7:D26”).Interior.ColorIndex = 16
Range(“I7:I26”).Interior.ColorIndex = 16
Range(“K7:K26”).Interior.ColorIndex = 44
ActiveSheet.Protect Password:=”aforapple.co.in”
MsgBox (“Actual Locked”)
End Sub
जैसा की आप देख सकते हैं, की मैंने Sub LockButton_Click() के अंदर सभी कोड को लिखा हैं (अगर आप Sub के बारे में और जानना चाहते है, तो मेरा पिछले पोस्ट जरूर देखे) , और उसके अंदर मैंने ActiveWorkbook.Sheetsसे मैंने coding की सुरुवात की हैं, यहाँ ActiveWorkbook.Sheets सिस्टम को बतलाता हैं, ये कोड किस शीट के लिए एक्सेक्यूट (निष्पादित) करना हैं, फिर मैंने यहाँ Range () का उपयोग किया हैं, वास्तव में इसी से आप सिस्टम को ये समझाते हैं, की आप अपने कोड को कहाँ से कहाँ तक (किस कॉलम / rows तक) उपयोग में लाना चाहते हैं, इसके बाद मैंने Interior.ColorIndex का उपयोग किया हैं, जो की कलर को बदलने के लिए उपयोग मैंने जाया जाता हैं, फिर मैंने अपने शीट को पासवर्ड से प्रोटेक्ट किया हैं “ActiveSheet.Protect ” की मदद से, और फिर उपयोगकर्ता को चेतावनी संदेश देने के लिए MsgBox (“Actual Locked”) का उपोग किया हैं।
दूसरे बटन “Actual Unlocked ” का कोड –
Sub UnLockButton_Click()
ActiveSheet.Unprotect Password:=”aforapple.co.in”
ActiveWorkbook.Sheets(“Sales_Plan”).Range(“D7:D26”).Locked = False
MsgBox (“Actual Unlocked”)
Range(“D7:D26”).Interior.ColorIndex = 2
Range(“I7:I26”).Interior.ColorIndex = 2
Range(“K7:K26”).Interior.ColorIndex = 2
End Sub
इस बटन के कोड को आप अपने आप ही समझ सकते हैं।
अब आप जब अपने एक्सेल में, ऊपर दिए गए कोड को run करेंगे, मतलब की एक्सेल में जो आप ने “Actual Locked ” बटन बनाया हैं, उसको दबाएंगे तो निचे दिए गए स्क्रीन की तरह ही एक्शन होगा।
तो आज हमने सीखा की MS Excel में कैसे हम VBA Coding से cells – columns और rows को protect और unprotect कर सकते हैं, तथा ये भी देखा की इसके लिए coding कैसे लिखते हैं, अगले पोस्ट में हम VBA के कुछ और लॉजिक्स को समझेंगे ।
थैंक यू।
Protect Column – Excel VBA in Hindi