kennwort für tabellenblatt

habe eine Frage: Und zwar wenn ich den folgenden Sub auf die Arbeitsmappe legen und ich das falsche passwort eingebe, also nicht peter, dann komme ich wenn ich auf abbreche gehe trotzdem in die mappe. Kann mir da einer weiterhelfen? Kann ich evtl sogar noch eine andere mappe vorschalten, so dass ich die betreffende gar nicht sehe?

Hier der code:

Private Sub Worksheet_Activate()
Dim passwort As String
passwort = InputBox("Passwort:", "Passworteingabe")
If passwort <> "peter" Then
Excel.Application.Quit
End If
End Sub

Vielen Dank.

Peter