मैं संरक्षित कार्यपुस्तिका खोलने की कोशिश कर रहा हूं जो पासवर्ड के साथ एन्क्रिप्ट है और पासवर्ड "पासवर्ड" है।

मैं नीचे कोड लिखता हूं लेकिन यह काम नहीं कर रहा है।

कृपया इस पर मदद करें।

Sub demo()
Dim path_file As Variant
path_file = "c:\login\FloorLoginData.xlsx"
Workbooks.Open(path_file).Unprotect Password:="password"
end sub
0
Prush 22 मई 2019, 12:08

1 उत्तर

सबसे बढ़िया उत्तर

यदि आप Workbooks के दस्तावेज़ीकरण पर एक नज़र डालते हैं। ओपन मेथड आप देखेंगे कि इसमें एक Password पैरामीटर है।

Option Explicit

Sub demo()
    Dim PathFile As String
    PathFile = "c:\login\FloorLoginData.xlsx"

    Dim wb As Workbook
    Set wb = Workbooks.Open(FileName:=PathFile, Password:="password")
End Sub

नोट: उपयोग न करें Variant यदि आप उपयोग कर सकते हैं String Variant परिवर्तनीय प्रकार के रूप में सबसे खराब विकल्प है, यदि आप कर सकते हैं तो हमेशा कुछ और उपयोग करें।

0
Pᴇʜ 22 मई 2019, 09:17