open excel spreadsheet with password

[rocket0612]

When using a macro to open a spreadsheet, if the spreadsheet is password
protected & I know what the password is, what code would I use to open
the spreadsheet with the password?

thanks

 

[moi]

Sub OpenProtectedFile()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open("C:\Password Protected File.xls", , , ,
"password1", "password2")
Set ws = wb.Sheets("Sheet1")
ws.Activate
ws.Cells(1, 1).Value = "Modified by VBA"
End Sub

"rocket0612" <[email protected]>
schreef in bericht
news:[email protected]...