VBA का उपयोग करके Excel में कक्षों को कैसे लॉक और अनलॉक करें

एक्सेल में सेल, कॉलम और रो को लॉक करना आपको अपने डेटा की सुरक्षा करने की स्वतंत्रता देता है। वर्कशीट को सुरक्षित करने के बाद, डिफ़ॉल्ट रूप से, प्रत्येक सेल लॉक हो जाता है। इसका मतलब है कि उन्हें संपादित नहीं किया जा सकता है। लेकिन विभिन्न कोशिकाओं की रक्षा करने से आपको असुरक्षित कोशिकाओं पर काम करने की स्वतंत्रता मिलती है। यहां, आप सेल को लॉक और अनलॉक करने के लिए विभिन्न एक्सेल तकनीक देखेंगे। कई डिफ़ॉल्ट हैं एक्सेल फ़ंक्शन जिसका उपयोग हम सूत्र बनाने के लिए कर सकते हैं। यदि आप वर्कशीट की सुरक्षा नहीं करते हैं, तो फिर से, लॉकिंग सेल का कोई प्रभाव नहीं पड़ेगा। यह लेख आपको 6 दिखाएगा कोशिकाओं को लॉक और अनलॉक करने के लिए आदर्श उदाहरण में VBA का उपयोग कर एक्सेल ।

निम्नलिखित कार्यपुस्तिका को स्वयं अभ्यास करने के लिए डाउनलोड करें।

VBA का उपयोग करके Excel में कक्षों को लॉक और अनलॉक करने के 6 आदर्श उदाहरण

एक्सेल वीबीए कई जटिल कार्यों को बड़ी आसानी से कर सकते हैं। आपको बस एक कोड इनपुट करना होगा या एक लिखना होगा। इस लेख में, हम VBA . लागू करेंगे करने के लिए लॉक और कोशिकाओं को अनलॉक करें एक्सेल . में . उदाहरण के लिए, हम एक नमूना डेटासेट का उपयोग करेंगे। उदाहरण के लिए, निम्न डेटासेट में विक्रेता शामिल हैं , उत्पाद , और शुद्ध बिक्री कोशिकाओं की श्रेणी में B4:D10 . यहां, हम विभिन्न सेल श्रेणियों को लॉक करेंगे।

हमारे पहले उदाहरण में, आप देखेंगे कि एक्सेल वर्कशीट में सभी सेल को कैसे लॉक किया जाए। इसलिए, कार्य करने के लिए नीचे दिए गए चरणों का पालन करें।

कदम:

• सबसे पहले, डेवलपर ➤ विजुअल बेसिक . पर जाएं ।

• परिणामस्वरूप, VBA विंडो पॉप आउट हो जाएगी।
• अब, सम्मिलित करें मॉड्यूल . चुनें ।

• परिणामस्वरूप, मॉड्यूल डायलॉग बॉक्स दिखाई देगा।
• अगला, नीचे दिए गए कोड को कॉपी करें और मॉड्यूल बॉक्स में पेस्ट करें।

Sub AllCells()
Sheets("All Cells").Cells.Locked = True
Sheets("All Cells").Protect
End Sub

• फ़ाइल सहेजें और F5 . दबाएं कोड चलाने के लिए कुंजी।
• इसलिए, जब आप किसी सेल को संपादित या संशोधित करने का प्रयास करते हैं, तो आपको एक चेतावनी संवाद बॉक्स मिलेगा जैसा कि नीचे दिखाया गया है।

अब, हम विशिष्ट सेल को लॉक करने के लिए कोड दिखाएंगे। हम एक चेक बॉक्स भी डालेंगे जो लॉकिंग और अनलॉकिंग को नियंत्रित करेगा। तो, ऑपरेशन करने के लिए निम्नलिखित चरणों को जानें।

कदम:

• सबसे पहले, सेल श्रेणी को नाम दें B4:D10 तालिका1 . के रूप में ।

• अगला, डेवलपर ➤ सम्मिलित करें ➤ चेक बॉक्स . पर क्लिक करें ।

• बाद में, चेक बॉक्स को वहां रखें जहां आप चाहते हैं।
• फिर, शीट के नाम पर राइट-क्लिक करें।
• कोड देखें का चयन करें संदर्भ मेनू से।

• नीचे दिए गए कोड को पॉप-आउट डायलॉग बॉक्स में डालें।

Private Sub CheckBox1_Click()
Range("Table1").Select
On Error Resume Next
If CheckBox1.Value = True Then
    Selection.Locked = False
    MsgBox Selection.Address & " Cell Range is Unlocked", vbInformation, "ExcelDemy"
Else
    Selection.Locked = True
    MsgBox Selection.Address & " Cell Range is Locked", vbInformation, "ExcelDemy"
End If
End Sub

• फ़ाइल को सहेजें और F5 कुंजी . दबाकर कोड चलाएँ
• इस प्रकार, बॉक्स को चेक करने से सेल अनलॉक हो जाएंगे और नीचे दिखाए गए अनुसार एक डायलॉग बॉक्स वापस आ जाएगा।

• इसी तरह, बॉक्स को अनचेक करने से सेल लॉक हो जाएंगे।

हालाँकि, हम केवल उन कक्षों को लॉक कर सकते हैं जहाँ कोई सूत्र है। इसलिए, सूत्र के साथ कक्षों को लॉक करने की प्रक्रिया का पालन करें।

कदम:

• सबसे पहले, मॉड्यूल प्राप्त करें उदाहरण 1 . में दिए गए चरणों का पालन करके बॉक्स ।
• नीचे दिए गए कोड को बॉक्स में टाइप करें।

Sub LockCellsWithFormulas()
For Each Rng In ActiveSheet.Range("B5:D10")
If Rng.HasFormula Then
Rng.Locked = True
Else
Rng.Locked = False
End If
Next Rng
ActiveSheet.Protect "111"
End Sub

• उसके बाद, रनसब . पर क्लिक करें कोड चलाने के लिए बटन।
• यहां हम देख सकते हैं कि यह कोड उन कक्षों को लॉक कर देगा जहां हमारे पास एक सूत्र इनपुट है।
• उदाहरण के लिए, D7 एक सूत्र है। इसलिए हम इस सेल को संपादित नहीं कर सकते।

इसके अलावा, हम कुछ सेल को छोड़कर पूरी वर्कशीट को लॉक कर सकते हैं, जिन्हें हम निर्दिष्ट करेंगे। नीचे दिए गए कोड को देखें जहां B5:D10 वह सीमा है जिसे हम अनलॉक रखना चाहते हैं। इस सीमा के अलावा, कोड चलाने के बाद पूरी वर्कशीट लॉक हो जाएगी।

Sub WorksheetExceptFewCells()
Dim wb As Workbook
Set wb = ActiveWorkbook
wb.Sheets("Entire Worksheet Except Few").Range("B5:D10").Locked = False
wb.Sheets("Entire Worksheet Except Few").Protect passowrd = "111"
End Sub

5. एक्सेल में डाटा एंट्री के बाद लॉक सेल

फिर से, वांछित सीमा में डेटा दर्ज करने के बाद कोशिकाओं को लॉक करना आवश्यक है। इस उदाहरण में, B4:D10 वह सीमा है जहां हम डेटा इनपुट करेंगे। इसलिए, एक्सेल में डेटा एंट्री के बाद सेल लॉक करने के लिए नीचे दिए गए चरणों का पालन करें।

कदम:

• सबसे पहले, शीट के नाम पर राइट-क्लिक करें और कोड देखें select चुनें ।
• निम्न कोड को डायलॉग बॉक्स में इनपुट करें।

Dim rg As Range
Dim str As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("B4:D10"), Target) Is Nothing Then
    Set rg = Target.Item(1)
    str = rg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xg As Range
    On Error Resume Next
    Set xg = Intersect(Range("B4:D10"), Target)
    If xg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="111"
    If xg.Value <> str Then xg.Locked = True
    Target.Worksheet.Protect Password:="111"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B4:D10"), Target) Is Nothing Then
    Set rg = Target.Item(1)
     str = rg.Value
End If
End Sub

• RunSub . दबाकर कोड चलाएँ बटन या F5 कुंजी.
• उसके बाद, श्रेणी में अपने डेटा मान टाइप करें।
• यह अपने आप लॉक हो जाएगा।
• यदि आप संपादित करने का प्रयास करते हैं, तो आपको नीचे दिखाए गए अनुसार चेतावनी संवाद बॉक्स मिलेगा।

अब तक हमने सेल को लॉक करने का तरीका बताया है। अब, आप एक्सेल वर्कबुक में सेल अनलॉक करने के लिए नीचे दिए गए कोड का उपयोग कर सकते हैं।

Sub UnlockCells()
Sheets("Unlock Cells").Cells.Locked = False
Sheets("Unlock Cells").Unprotect
End Sub

VBA के बिना Excel में सेल को लॉक और अनलॉक कैसे करें

आप VBA . का उपयोग किए बिना भी सेल को लॉक और अनलॉक कर सकते हैं . हम प्रारूप कक्ष का उपयोग कर सकते हैं सेल को लॉक/अनलॉक करने के लिए डायलॉग बॉक्स। आपको लॉक किया गया . के लिए बॉक्स चेक करना होगा अगर आप सेल को लॉक करना चाहते हैं। इसी तरह सेल्स को अनलॉक करने के लिए बॉक्स को अनचेक करने से काम चलेगा। यदि आप अपनी कार्यपत्रक या कार्यपुस्तिका की सुरक्षा नहीं करते हैं, तो फिर से, आपके कक्षों को लॉक करने का कोई प्रभाव नहीं पड़ेगा।

कदम:

• सबसे पहले, अपनी इच्छित श्रेणी चुनें।
• फिर, Ctrl . दबाएं और 1 एक साथ चाबियां।
• यह प्रारूप कक्ष लौटाएगा डायलॉग बॉक्स।
• संरक्षण . के तहत टैब में, लॉक किया हुआ . चेक/अनचेक करें आपकी आवश्यकता के आधार पर बॉक्स।

• यदि आप वर्कशीट को सुरक्षित रखना चाहते हैं, तो समीक्षा टैब पर जाएं।
• वहां, पत्रक को सुरक्षित रखें . चुनें रक्षा करें . से ड्रॉप-जीता।
• इस प्रकार, शीट सुरक्षित हो जाएगी।

निष्कर्ष

अब से, आप कोशिकाओं को लॉक और अनलॉक करने में सक्षम होंगे में VBA का उपयोग कर एक्सेल ऊपर वर्णित उदाहरणों के बाद। एक्सेल में कुछ सेल को लॉक करना आपको दूसरों से अपना डेटा सुरक्षित करने की स्वतंत्रता देता है। यह आपको आकस्मिक विलोपन को रोकने या किसी और को आपके डेटा को नष्ट करने से रोकने में मदद करता है। उनका उपयोग करते रहें और हमें बताएं कि क्या आपके पास कार्य करने के और तरीके हैं। ExcelDemy का अनुसरण करें इस तरह के और लेखों के लिए वेबसाइट। यदि आपके पास नीचे टिप्पणी अनुभाग में कोई टिप्पणी, सुझाव या प्रश्न हैं तो छोड़ना न भूलें।