InputBox nicht lesbar machen
28.07.2014 19:53:44
Serge
Hallo Leute
mit folgendem Makro frage ich nach einem Passwort ab:
Private Sub Worksheet_Activate()
Dim myInput As String
myInput = InputBox("Code eingeben?")
If Not myInput = "passwort" Then
MsgBox "Falscher Code!"
Sheets("Entree").Select
ActiveWorkbook.Close
Else
ActiveWorkbook.Unprotect Password:="passwort"
Sheets("Banque").Select
End If
End Sub
Aber die Eingabe in der InputBox ist sichtbar in Klartext!!!
Wie kann ich bewirken dass die Eingabe nicht von einem anderen sichtbar oder erkennbar wird?
Danke für Euere Hilfe
Serge
Anzeige