VBA code to open protected shared file

Hi

I have a problem with creating a macro that will automatically open a password-protected, shared file *. xls

The following code works only for a file that is not shared
In the case of shared file is still asked for the password (x2)


Set xWb = New Excel.Application

xWb.Visible = True
xWb.DisplayAlerts = False

wbPath = ThisWorkbook.path & "\Sheet1.xls"

xWb.Workbooks.Open Filename:=wbPath, Password:="password"


Do you have any ideas?

Thanks in advance!

you could possible try workbooks.open filename:=wbPath, Password:="password", writerespassword:="password

Thanks for your answer.

Unfortunatly this does not solve the problem
The password prompt still shows up

Still trying to find a solution

I'd expect you might need to solve this using sendkeys. I don't think there is anything else in the open method to deal with that.