Makro um Blattschutz aufzuheben

Sub Schutz_aufheben()
ActiveSheet.Unprotect
End Sub

Das Problem ist jetzt, dass bei Eingabe eines falschen Kennwortes eine Fehlermeldung erscheint (1004) und die Arbeitsmappe dann schliesst. Kann man das nicht irgendwie unterdrücken? Bei Eingabe eines falschen Kennwortes soll Excel einfach nur das Dialogfenster schliessen.