दिलचस्प पोस्ट
सी # फाइलस्ट्रीम: बड़ी फ़ाइलों के लिए इष्टतम बफर आकार? SecItemAdd और SecItemCopyMatching त्रुटि कोड -34018 देता है (errSecMissingEntitlement) ब्राउज़र के लिए मैं डिफ़ॉल्ट स्टाइल शीट कैसे ढूंढ सकता हूं? क्या std :: स्ट्रिंग में शून्य टर्मिनेटर है? .hp फ़ाइलों के रूप में चलाने के लिए सभी .html पृष्ठों को बनाने के लिए .htaccess का उपयोग करना? स्प्रिंग बूट: लापता एंबेडेड के कारण एंबेडेड वेब ऍप्लिकेशन्स कॉन्टैक्ट शुरू करने में असमर्थ एंड्रॉइड स्टूडियो में क्यों एमुलेटर बहुत धीमा है? IPhone के लिए संकलित करते समय Xcode द्वारा #defines सेट किए गए हैं विज़ुअल स्टूडियो 2012 वेब एपीआई प्रोजेक्ट नहीं चलेगा – न्यूटॉन्सफ्ट नहीं मिल सकता। जेसन कोणीय 2 ड्रॉपडाउन विकल्प डिफ़ॉल्ट मूल्य कैसे एक साधारण HTML लिखने के लिए। DropDownListFor ()? "ओ (1) पहुंच के समय" क्या मतलब है? एक बाश स्क्रिप्ट का उपयोग करके फ़ाइल नामों में रिक्त स्थान को कैसे बदलें क्या एक अच्छा है, यदि कोई है, .नेट विंडोज स्वचालन पुस्तकालय? Rails 'link_to विधि: इसे कब हटा देना चाहिए

कैसे VBA का उपयोग कर Excel में किसी सेल में डेटा लॉक करें

मैं दूसरों को वीबीए का उपयोग करते हुए मेरी एक्सेल शीट में सेल की सामग्री को संपादित करने से रोकना चाहता हूं। क्या इसे करना संभव है?

Solutions Collecting From Web of "कैसे VBA का उपयोग कर Excel में किसी सेल में डेटा लॉक करें"

आप पहली बार चुन सकते हैं कि आप किस कक्ष को सुरक्षित रखने के लिए नहीं चाहते (उपयोगकर्ता-योग्य होने के लिए) उन्हें झूठी स्थिति की लॉक स्थिति सेट करके:

Worksheets("Sheet1").Range("B2:C3").Locked = False 

उसके बाद, आप शीट की रक्षा कर सकते हैं, और अन्य सभी कक्षों को संरक्षित किया जाएगा ऐसा करने के लिए कोड, और अभी भी आपके VBA कोड को कोशिकाओं को संशोधित करने की अनुमति है:

 Worksheets("Sheet1").Protect UserInterfaceOnly:=True 

या

 Call Worksheets("Sheet1").Protect(UserInterfaceOnly:=True) 

Worksheet.Protect का उपयोग करने की कोशिश करें। Worksheet.Protect विधि, इसी तरह:

 Sub ProtectActiveSheet() Dim ws As Worksheet Set ws = ActiveSheet ws.Protect DrawingObjects:=True, Contents:=True, _ Scenarios:=True, Password="SamplePassword" End Sub 

हालांकि, आपको अपने VBA कोड में पासवर्ड शामिल करने के बारे में चिंतित होना चाहिए। आपको जरूरी पासवर्ड की ज़रूरत नहीं है यदि आप केवल एक सरल बाधा डालते हैं जो उपयोगकर्ता को छोटी गलतियों को हटाने जैसे फ़ार्मुलों आदि को हटाने की कोशिश कर रहे हैं।

इसके अलावा, यदि आप देखना चाहते हैं कि Excel में VBA में कुछ चीज़ें कैसे करें, मैक्रो रिकॉर्ड करने का प्रयास करें और कोड को जनरेट करने का प्रयास करें। यह VBA में आरंभ करने का एक अच्छा तरीका है

उदाहरण के लिए, एक उदाहरण में, यदि आप रेंज A1 से I50 तक की कोशिकाओं को लॉक करना चाहते हैं तो नीचे कोड है:

 Worksheets("Enter your sheet name").Range("A1:I50").Locked = True ActiveSheet.Protect Password:="Enter your Password" 

दूसरे मामले में यदि आपके पास पहले से संरक्षित पत्र है तो नीचे कोड का पालन करें:

 ActiveSheet.Unprotect Password:="Enter your Password" Worksheets("Enter your sheet name").Range("A1:I50").Locked = True ActiveSheet.Protect Password:="Enter your Password" 

आप वर्कशीट के बदलाव की घटना में शामिल वर्कशीट स्तर पर भी ऐसा कर सकते हैं। यदि वह सूट आपकी आवश्यकताओं को बेहतर बनाता है मान, मापदंड, ect पर आधारित गतिशील लॉकिंग के लिए अनुमति देता है …

 Private Sub Worksheet_Change(ByVal Target As Range) 'set your criteria here If Target.Column = 1 Then 'must disable events if you change the sheet as it will 'continually trigger the change event Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "You cannot do that!" End If End Sub 
 Sub LockCells() Range("A1:A1").Select Selection.Locked = True Selection.FormulaHidden = False ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= False, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True End Sub