My codes to open password protected workbook doesn't work

[ashley12]

Hi everyone,

Below is my codes. It does try to open the file, but it keeps asking me for password although I already include the password in the codes. What have I got wrong?

Sub openfile()
  Dim wb As Workbook
    
  Set wb = Workbooks.Open(FileName:="C:\...", Password:="password")

End Sub

Thanks

 

[Michael M]

Try using

Workbooks.Open Filename:= "C:\................", Password:="password"

Make sure the Case of "password" is correct as well !!

 

[ashley12]

Thanks Michael, I know what the problem is now. If the workbook is closed, the codes work fine and open the file. But if it's opened by another user then it ask for my password. However, I want it to send a message box say "File is opened by another user, please try again later". Do you know how to do that?

 

[Michael M]

Maybe this way
You can use this function

Function BookOpen(wbName As String) As Boolean
On Error Resume Next
BookOpen = Len(Workbooks(wbName).Name)
End Function

and call it like this

If BookOpen("test.xls") Then
MsgBox "File is open"
Else
'code to open file
End If