Trapping a "Run Time Error 5408” when using a VBA macro

[jstockton]

Please Help,

I have run across a problem where I am forced to use a VBA macro in bringing up a word document (the word document is setup with a Password). When clicking on the macro, a pop up window will appear asking for a Password! I can view the word document (Read Only, which works great ), but if click on “CANCEL” or the OK Button, A Microsoft Visual Basic Error Debug Pop Up Window will appear giving a error code of “Run Time Error 5408” . ( ***Please remember to have the word document setup with a Password.***)

Below is what I have. Is there a way to trap the error code?

Sub PRD77()

Dim appWord As New Word.Application
Dim docWord As Word.Document

Set docWord = appWord.Documents.Open("S:\VB2 Product Development\PRDs\PRD#77-

Instant VB2 User Registration\PRD#77-InstantVB2UserRegistration.doc")

appWord.Visible = True


End Sub

Please help...

 

[Fausto]

Hello

This should work. You just have to tell Excel not to handle errors, but rather you will by adding the "On error resume next" to the beginning of your macro. You can then with the use of Err.number determine what the user pressed with the following code. I assumed you used the createobject function to create the instance of Word.

If Err.Number = 5408 Then
    wordobj.Quit
    MsgBox "Password supplied is incorrect"
End If
If Err.Number = 4198 Then
    wordobj.Quit
    MsgBox "User cancelled opening file"
End If
If Err.Number <> 0 Then
    wordobj.Quit
    MsgBox "Unhandeled exception, Microsoft Word terminated"
End If

Hope this helps, if not let me know.