Use VBA to Open a Password-Protected File

[srdavisgb]

I am trying to use a macro to consolidate data from protected workbooks. Note: It appears PowerQuery doesn't like password-protected files.


Below is the vba I have used to open unprotected files in the past. How do I modify the script to provide the required password.

[/COLOR]Workbooks.Open Filename:=GetMasterDataInputPath & "\" & Filename[COLOR=#574123][CODE][/COLOR]




I tried to add the password object but, it appears I need and end statement.


[COLOR=#574123][CODE][/COLOR]Workbooks.Open Filename:=GetMasterDataInputPath & "\" & Filename _Password:=PSWD[COLOR=#574123][CODE][/COLOR]


[COLOR=#ff0000][B]Your suggestions/solutions are greatly appreciated![/B][/COLOR]

 

[Coding4Fun]

Sub Open_Unlock()

'Unlock Password Protected File using both an Open Password and a Modify Password
Workbooks.Open "C:\Users\YourPath\Desktop\Sheet1.xlsm", Password:="apple", WriteResPassword:="apple", ReadOnly:=False




'Unlock Password Protected File just an Open Password
Workbooks.Open "C:\Users\YourPath\Desktop\Sheet1.xlsm", Password:="apple", ReadOnly:=False


'Unlock password protected Workbook to Modify
ActiveWorkbook.Unprotect Password:="apple"


End Sub