Passwortabfrage vor Datei öffnen

Private Sub Workbook_Open()
Dim PWort As String, PWEingabe As String, Fehler As Byte
PWort = "abc"
Fehler = 1
nochmal:
' Die Passwort Eingabe wird geprüft
PWEingabe = InputBox("Bitte geben sie Ihr Passwort ein")
If PWEingabe  PWort Then
' Prüfen wie oft bereits Fehler
If Fehler 

Er funktioniert spitze, aber was mich etwas stört ist,
1. dass die Datei während der Passwortabfrage schon geöffnet ist, man also schon Dateiinhalte sehen kann und
2. dass das Passwort nicht als "***" , sondern eben als "abc" erscheint.
Wie müßte der Code aussehen, damit diese beiden Probleme behoben werden?
Vielen Dank im Voraus & beste Grüße
Gunnar