vba code for opening password protected workbook

[Guest]

Is it possible for somebody to tell me the code i would need to open up a
password protected workbook, update the linked worksheets inside, then save
and close.

 

[Ron de Bruin]

Here is a example for all workbooks in a folder
http://www.rondebruin.nl/copy4.htm

You can see the code that you must use on that page
If you need more help post back

 

[Dave Miller]

Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="", _
UpdateLinks:=True, _
Password:="")

With wbk
.Save
.Close
End With

Set wbk = Nothing
End Sub

 

[Guest]

Thanks guys thats brilliant, unfortunately it used to ask me for 2 passwords
and it still tells me to enter a password for write access or open as read
only, is there a way to bypass this password too?

 

[Ron de Bruin]

See the example on my page

Set mybook = Workbooks.Open(MyPath & MyFiles(Fnum), _
Password:="ron", WriteResPassword:="ron", UpdateLinks:=0)

 

[Guest]

Hi Ron,

Sorry to be a pain but i cant get this to work, im obviously doing something
wrong, do i just need those 2 lines you gave me or is there something else i
need to insert, both my files are in the same folder as suggested.

 

[Ron de Bruin]

In Dave's code you see

Password:="ron"

Now add this
WriteResPassword:="ron",

 

[Guest]

Hi Ron, i've copied Dave's code in like you said and added the line with the
write password instruction but it gives me a compile error/syntax error when
i try to run it. This is my code as i currently have it, i have tried putting
brackets and commas etc to separate the 2 password lines, i've even tried
them on the same line but everything returns the compile error.

Thanks

Carl


Sub OpenPassword()
Dim wbk As Workbook

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(Filename:="e:\rota stuff\nick rota template", _
UpdateLinks:=True, _
Password:="united1")
WriteResPassword:="united1")
With wbk
..Save
..Close

End With

Set wbk = Nothing

End Sub

 

[Ron de Bruin]

Use it like this

Set wbk = Workbooks.Open(Filename:="e:\rota stuff\nick rota template", _
Password:="united1", WriteResPassword:="united1", UpdateLinks:=True)

 

[Guest]

Thanks very much, that works a treat.