Kennwort mit Sternchen

Private Sub CommandButton2_Click()
kennwort = Inputbox("Kennwort bitte !")
If kennwort <> "doof" then
Exit Sub
End If
Worksheets("ABC").Select
End Sub

Wie kann ich es jetzt erreichen, das bei der Eingabe des Kennwortes nur Sternchen oder andere Zeichen anstelle der eingegebenen Buchstaben erscheinen?

Oder gibt es übehaupt eine sicherere oder elegantere Lösung, den Zugriff auf ein bestimtes Tabellenblatt zu verhindern?

Gruß aus Schleswig-Holstein

Werner