Anzeige Eingabe als Sternchen?
27.11.2012 00:05:20
Ina
ich habe eine Mappe, die mit Passwort geöffnet wird (TextBox1 = Name, TextBox2 = Kennwort).
Mein Problem ist, das das Kennwort in Reintext angezeigt wird, also von jedermann mitlesbar ist.
Ist es möglich, die Eingabe z.B. als Sternchen anzuzeigen?
Kann vielleicht jemand den Codeschnipsel entsprechend ändern? Danke für eure Hilfe!
LG Ina
Private Sub CommandButton1_Click()
Dim Na As String, NaFix
Dim Pw As String, PwFix
Static iCounter As Integer
NaFix = Array("Testfrau", "Testmann")
PwFix = Array("12345", "678910")
Na = TextBox1
Pw = TextBox2
iCounter = iCounter + 1
If IsError(Application.Match(Na, NaFix, 0)) Then
MsgBox "Name falsch"
If iCounter = 3 Then ActiveWorkbook.Close False
TextBox1 = ""
TextBox2 = ""
TextBox1.SetFocus
Exit Sub
End If
If Pw PwFix(Application.Match(Na, NaFix, 0) - 1) Then
MsgBox "Passwort falsch"
If iCounter = 3 Then ActiveWorkbook.Close False
TextBox2 = ""
TextBox2.SetFocus
Exit Sub
End If
MsgBox "Sie dürfen rein!"