VBA to open password protected file

[weefisheads]

No - this is NOT a request to find out how to crack a password!

I have some code in a macro that opens a file and I'm trying to see if it's possible to open said file if it's passworded to open. I'd be grateful if someone could tell me what the syntax would be if the password is, say, BEER and the open command looks like

Workbooks.Open Filename:= "C:\Documents and Settings\My Documents\Book2.xls"

Thanks - i hope I'm making sence...

david

 

[Richard Schollar]

Hello David

Per VBA Help:

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

Hence, usage:

Workbooks.Open Filename:= "C:\Documents and Settings\My Documents\Book2.xls", Password:="YourPasswordHere"

 

[weefisheads]

Oh. Yes. My, it seems I should've looked there first. Thanks!

 

[mepankajshakya]

No - this is NOT a request to find out how to crack a password!

I have some code in a macro that opens a file and I'm trying to see if it's possible to open said file if it's passworded to open. I'd be grateful if someone could tell me what the syntax would be if the password is, say, BEER and the open command looks like

Workbooks.Open Filename:= "C:\Documents and Settings\My Documents\Book2.xls"

Thanks - i hope I'm making sence...

david

Hi David,

Have a look to below code, I hope this will help you out.
Sub Workbook_Open()
Application.DisplayAlerts = False
'Change 1234 to your file password accordingly
Workbooks.Open Filename:="C:\Users\pankaj\Desktop\Unprotect-File.xls", _
Password:="1234", ReadOnly:=True
Application.DisplayAlerts = True
End Sub


Pankaj Shakya

 

[Henyman]

When i write this code
Filename:="C:\Users\pankaj\Desktop\Unprotect-
Puts in red