Hi a,

You use the password argument ... like this:

Sub Test()
    Dim wbk As Workbook
Set wbk = Workbooks.Open(FileName:="TheWorkbookName", Password:="ThePassword")
With wbk
        '
        'do stuff with wbk
        '
        .Close
    End With
End Sub
HTH