mit kennwort geschütztes tabellenblatt unscharf

habe ein tabellenblatt mit einem kennwort geschützt. wie kann ich hier ein tabellenblatt(das nur einen leeren inhalt hat) zwischenschalten auf dem dann die Abfrage des kennworts erscheint. ist dieses richtig eingegeben soll ich zum ursprünglich angeklickten, geschützten weitergeleitet werden.

Kan mir jemand helfen? hier mein biheriger code:

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

Danke
Ralf