kennwort

habe folgenden code:

Private Sub Worksheet_Activate()
Dim passwort As String
passwort = InputBox("Bitte geben Sie Ihr Passwort ein:", "Passworteingabe")
If passwort <> "peter" Then
ActiveWorkbook.Close
End If
End Sub

Gibt es hier eine Möglichkeit zunächst ein anderes arbeitsblatt vorzuschalten wo die kennwortabfrage geschieht. erst wenn diese richtig ist komme ich dann in das geschützte arbeitsblatt.

Danke.

Mfg
Peter