Hi

You've not given a great deal of info on exactly what you mean but perhaps something like this will give you a start.
Sub OpenBookTest()
Dim myFile As String
Dim myPath As String
myPath = "C:\My Documents"
myFile = "My Workbook.xls"
Workbooks.Open myPath & "\" & myFile, password:="password"
End Sub
Is this what you mean?

Regards