unprotect with password

[lezawang]

Hi
The code below will unprotect workbook if the user typed the right password. But when I typed wrong password, excel sent me to VBA with run time error message asking to enter the right password. How can I improve that so Excel would give an error message but stay in excel. Thank you

Sub wb_unprotect()
'unprotect workbook
    Dim x As String
    x = InputBox("enter password")
    Workbooks(1).Unprotect Password:=x
End Sub

 

[Fluff]

How about

Sub wb_unprotect()
'unprotect workbook
    Dim x As String
    x = InputBox("enter password")
    On Error Resume Next
    ThisWorkbook.Unprotect Password:=x
    If Err.Number <> 0 Then MsgBox "wrong password"
    On Error GoTo 0
End Sub

 

[lezawang]

Thank you so much.

 

[Fluff]

You're welcome