How to open another workbook that is password protected?

[Chris Williamson]

Hi,

Sub Open_Test_File()
    Dim wb As Workbook
    Set wb = Application.Workbooks.Open("Desktop\Test File.xls")
End Sub

This very simple little code opens a new workbook.

But if I add a password to the file that I'm going to open the password box appears.

What do I need to add to this code to automatically input this password?

I have tried putting this at the end:

Password:="123"

but this does not work?

Thanks

 

[VoG]

This should work

    Set wb = Application.Workbooks.Open(Filename:="Desktop\Test File.xls", Password:="123")

 

[Chris Williamson]

Thank you,

I had the Password:="123" outside the end bracket<!-- / message --><!-- sig -->

Set wb = Application.Workbooks.Open(Filename:="Desktop\Test File.xls")Password:="123"

<!-- / message --><!-- sig -->