Passwort in ***** anzeigen

Sub Passwortschutz_ein_aus()
Dim PW As String
With ActiveSheet
If .ProtectContents Then
PW = Application.InputBox("Gib das Passwort hier ein:", "Passwortschutz ein/aus")
If PW = "Falsch" Or PW = "False" Then Exit Sub
If PW <> "test" Then
MsgBox "Falsches Passwort. Blattschutz bleibt weiterhin aktiv.", vbCritical
Exit Sub
Else
.Unprotect Password:="test"
If PW = "test" Then
MsgBox "Passwort korrekt. Der Blattschutz ist jetzt deaktiviert.", vbInformation
End If
End If
Else
.Protect Password:="test"
End If
End With
End Sub