Ich hab folgendes Makro:
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
Ich möchte, dass bei der Eingabe das Passwort durch Sternchen (*****)
dargestellt wird.
Geht das irgendwie?
Bin für jede Hilfe dankbar