Excel में दिनांक के आधार पर सेलों की सुरक्षा कैसे करें?
आम तौर पर, हम दूसरों को सेल मानों को संपादित करने या संशोधित करने से रोकने के लिए वर्कशीट की सुरक्षा कर सकते हैं, लेकिन, कभी-कभी, आपको तारीख के आधार पर सेल की सुरक्षा करने की आवश्यकता होती है। उदाहरण के लिए, मैं अन्य कोशिकाओं की सुरक्षा करना चाहता हूं लेकिन केवल आज की तारीख के सेल मूल्यों को संशोधित करने की अनुमति देता हूं जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है, यह लेख तारीख के आधार पर कोशिकाओं की सुरक्षा कैसे करें के बारे में बात करेगा।
आज की दिनांक पंक्ति को छोड़कर सभी पंक्तियों को VBA कोड से सुरक्षित रखें
दिनांक बीत चुकी सभी पंक्तियों को VBA कोड से सुरक्षित रखें
आज की दिनांक पंक्ति को छोड़कर सभी पंक्तियों को VBA कोड से सुरक्षित रखें
केवल उस पंक्ति को संशोधित करने की अनुमति दें जो आज की तारीख के बराबर है, निम्नलिखित कोड आपकी मदद कर सकता है, कृपया ऐसा करें:
1. उस शीट टैब पर राइट क्लिक करें जिसे आप दिनांक के आधार पर कोशिकाओं की सुरक्षा करना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से, पॉप आउट में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया निम्नलिखित कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
VBA कोड: आज की दिनांक पंक्ति को छोड़कर सभी पंक्तियों को सुरक्षित रखें:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
If Range("E" & Selection.Row).Value <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
ElseIf Range("E" & Selection.Row).Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub
नोट: उपरोक्त कोड में, अक्षर E वह कॉलम हेडर है जहां दिनांक स्थित है, "111111"इस शीट की सुरक्षा के लिए पासवर्ड है। आप इन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं।
2. फिर इस कोड विंडो को सेव करें और बंद कर दें।
(1.) यदि आप आज की दिनांक पंक्ति के अलावा अन्य सेल पर क्लिक करते हैं, तो एक प्रॉम्प्ट बॉक्स आपको यह याद दिलाने के लिए पॉप अप होगा कि सेल को संपादित नहीं किया जा सकता है, स्क्रीनशॉट देखें:
(2.) यदि आप आज की तारीख के बराबर पंक्ति पर क्लिक करते हैं और संपादित करते हैं, तो इसे सफलतापूर्वक संशोधित किया जाएगा, स्क्रीनशॉट देखें:
दिनांक बीत चुकी सभी पंक्तियों को VBA कोड से सुरक्षित रखें
यदि आपको बीत चुकी तिथि की सभी पंक्तियों को सुरक्षित रखने की आवश्यकता है, तो केवल आज और भविष्य की तिथि पंक्तियों को संशोधित करने की अनुमति दें, कृपया निम्नलिखित VBA कोड लागू करें:
1. उस शीट टैब पर राइट क्लिक करें जिसे आप दिनांक के आधार पर कोशिकाओं की सुरक्षा करना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से, पॉप आउट में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया निम्नलिखित कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: सभी पंक्तियों को सुरक्षित रखें तिथि बीत चुकी है:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
Dim xRow As Long
xRow = 2
ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
ThisWorkbook.ActiveSheet.Cells.Locked = False
Do Until IsEmpty(Cells(xRow, 5))
If Cells(xRow, 5) < Date Then
Rows(xRow).Locked = True
End If
xRow = xRow + 1
Loop
ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub
नोट: उपरोक्त कोड में, संख्या 5 वह कॉलम संख्या है जहां दिनांक स्थित है, "111111"इस शीट की सुरक्षा के लिए पासवर्ड है। आप इन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं।
3. फिर इस कोड विंडो को सेव करें और बंद कर दें।
(1.) यदि आप सेल की तारीख बीत चुकी है पर क्लिक करते हैं, तो एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि सेल को संपादित नहीं किया जा सकता है, स्क्रीनशॉट देखें:
(2.) यदि आप आज की तारीख या भविष्य की तारीख में मान बदलने का प्रयास करने के लिए पंक्तियों के सेल पर क्लिक करते हैं, तो इसे सफलतापूर्वक संशोधित किया जाएगा, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!