Excel में डेटा प्रविष्टि या इनपुट के बाद सेल को लॉक या सुरक्षित कैसे करें?
मान लीजिए कि आपके पास एक वर्कशीट है और रिक्त कक्षों की एक निश्चित श्रेणी में डेटा प्रविष्टि की आवश्यकता है, और डेटा इनपुट करने के बाद, आपको फिर से परिवर्तनों को रोकने के लिए कोशिकाओं को स्वचालित रूप से लॉक करने की आवश्यकता है। आप इसे हासिल करने के लिए क्या कर सकते हैं? यह लेख आपकी मदद कर सकता है.
डेटा प्रविष्टि या वीबीए कोड के साथ इनपुट के बाद कोशिकाओं को लॉक या सुरक्षित करें
डेटा प्रविष्टि या वीबीए कोड के साथ इनपुट के बाद कोशिकाओं को लॉक या सुरक्षित करें
उदाहरण के लिए, रिक्त कक्षों की निश्चित सीमा A1:F8 है। कृपया Excel में डेटा प्रविष्टि के बाद इन कक्षों को लॉक करने के लिए निम्नानुसार कार्य करें।
1. कृपया पहले इस रेंज को अनलॉक करें, सेल चुनें और राइट-क्लिक करें, फिर चुनें प्रारूप प्रकोष्ठों राइट-क्लिक मेनू में, और में प्रारूप प्रकोष्ठों संवाद बॉक्स, अनचेक कर रहा है बंद के नीचे बॉक्स सुरक्षा टैब, और अंत में क्लिक करें OK बटन। स्क्रीनशॉट देखें:
2। क्लिक करें समीक्षा > शीट को सुरक्षित रखें. और इस वर्कशीट की सुरक्षा के लिए एक पासवर्ड निर्दिष्ट करें।
3. शीट टैब पर राइट क्लिक करें, चयन करें कोड देखें राइट-क्लिक मेनू से. फिर नीचे दिए गए VBA कोड को कॉपी करके कोड विंडो में पेस्ट करें। स्क्रीनशॉट देखें:
वीबीए कोड: डेटा प्रविष्टि या इनपुट के बाद कोशिकाओं को लॉक या सुरक्षित करें
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
नोट: कोड में, "A1:F8" वह सीमा है जिसकी आपको डेटा इनपुट करने के लिए आवश्यकता है; और "123" इस संरक्षित वर्कशीट का पासवर्ड है। कृपया उन्हें आवश्यकतानुसार बदलें।
4। दबाएँ ऑल्ट + Q को बंद करने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
श्रेणी A1:F8 की कोशिकाओं में डेटा दर्ज करने के बाद, वे स्वचालित रूप से लॉक हो जाएंगे। और यदि आप इस श्रेणी की किसी भी सेल सामग्री को बदलने का प्रयास करेंगे तो आपको एक त्वरित संवाद बॉक्स मिलेगा। स्क्रीनशॉट देखें:
संबंधित लेख:
- Excel में फ़ॉर्मूले में सभी सेल संदर्भों को एक साथ कैसे लॉक करें?
- Excel में किसी अन्य सेल के मानों के आधार पर सेल को लॉक या अनलॉक कैसे करें?
- एक्सेल में सेल में या उसके अंदर चित्र/इमेज को कैसे लॉक करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!