Check Excel password VBA

[agibsonsw]

Hello. Excel 2003.

If my code opens a workbook leaving the user to supply the necessary password, if they get it wrong a VBA End/Debug dialog appears. How can I handle this 'gracefully'. Do I need error handling code or can I get Excel to ask again?

Thanks, Andy.

[Don Wells]

Hello. Excel 2003.

If my code opens a workbook leaving the user to supply the necessary password, if they get it wrong a VBA End/Debug dialog appears. How can I handle this 'gracefully'. Do I need error handling code or can I get Excel to ask again?

I would be inclined to use code similar to the following:

Code: Select all

Dim ctr As Long
Pwd_Reqd:
    If ctr = 3 Then GoTo ExitHandler
    On Error Resume Next
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Wells\My Documents\Trash.xls"
    If Err Then
      ctr = ctr + 1
      On Error GoTo 0
      GoTo Pwd_Reqd
    End If

HTH

[agibsonsw]

Hi and thanks for this. IDHTY.

[Don Wells]

Hi and thanks for this. IDHTY.

    IDHTY; Huh???

[agibsonsw]

'It Did Help, Thank You' - I thought everyone new that ?

[HansV]

No, I didn't "now" it...