Passwort unsichtbar
10.09.2003 07:25:39
Georg
die Eingabe des Passwortes soll nicht sichtbar sein, z.B. optisch nur ********.
Ich lasse das Passwort mit folgendem Makro abfragen:
Private Sub Workbook_Open()
Sheets("NAVI").Select
Range("A2").Select
Dim Eingabe As String
MsgBox "Hallo, bitte geben Sie ein Kennwort ein", vbOKOnly, "Notfall"
Eingabe = InputBox("Eingabe", "Notfall")
If Eingabe = "Herzog" Then
MsgBox "OK , richtiges Kennwort"
Else
MsgBox "Falsches Passwort"
ActiveWorkbook.Close
End If
End Sub
Statt "Herzog" soll in der MsgBox lediglich ****** angezeigt werden.
Kann mir jemand sagen, wie ich das ins Makro einbinde?
Vielen Dank für jede Hilfe
Grüße
Georg