6
मेरे कार्यपुस्तिका निम्नलिखित खुला घटना है:ThisWorkbook.ChangeFileAccess xlReadWrite VBA विंडो में कार्यपुस्तिका के लिए एकाधिक VBAProjects बनाता
Private Sub Workbook_Open()
ThisWorkbook.ChangeFileAccess xlReadOnly
End Sub
और फिर इस बटन:
Sub UnlockDeveloper()
Dim pwd As String
pwd = InputBox("Enter developer password:", "Password")
If pwd = "password" Then
If ThisWorkbook.ReadOnly = True Then
ThisWorkbook.ChangeFileAccess xlReadWrite
End If
Else
MsgBox ("Incorrect password.")
End If
End Sub
यह सब काम करता है ठीक है, आमतौर पर है, लेकिन कभी-कभी अनलॉक डेवलपर उप चल रहा है VBAProject VBA विंडो में दो बार दिखाई देने का कारण बनता है, और मेरे पास यह जानने का कोई तरीका नहीं है कि वास्तविक फ़ाइल कौन सा है। यदि मैं गलत में परिवर्तन करता हूं जैसे ही मैं एक्सेल बंद करता हूं तो परिवर्तन खो जाते हैं।
किसी को भी किसी भी विचार कैसे इसे रोकने के लिए मिल गया?
बहुत ही रोचक सवाल, मुझे याद आया कि कुछ साल पहले डिक्स ब्लॉग पर कुछ ऐसा ही देखा गया था, [यह] (http://dailydoseofexcel.com/archives/2004/12/11/google-desktop/) जो इसे स्पष्ट करता है समस्या के लिए कई कारण हैं, और कुछ मामलों में काम करने वाले कामकाज। – brettdj
ऐसा क्यों होता है, एमएसडीएन वेबसाइट पर एक स्पष्टीकरण है (http://msdn.microsoft.com/en-us/library/office/ff193344%28v=office.15%29.aspx)। मुझे प्रत्यक्ष समाधान नहीं मिला लेकिन मुझे लगता है कि [केवल पढ़ने के मोड की अंतर्निहित कार्यक्षमता] (http://www.excel-easy.com/examples/read-only-workbook.html) उपयोगी हो सकता है? – Ioannis
क्या [यह] (http://www.k2e.com/tech-update/tips/728-tips-adding-a-password-to-make-an-excel-workbook-read-only) आपके कोडिंग अप्रचलित बनाते हैं ? – OldUgly