Passworteingabe mit Sternchen
08.08.2006 13:53:20
Polarfuchs
fogendes Problem:
Ich möchte einen CommandButton mit einem Passwort schützen. Das habe ich auch hinbekommen, aber bei der Abfrage der InputBox kann man die Eingabe mitverfolgen. Ich brächte eine Möglichkeit, die Eingabe des Passwortes nicht sichtbar zu machen. So wie man es kennt, jedes Zeichen das eingegeben wird ist nur als Sternchen sichtbar. Wobei es mir egal ist, ob es ein Sternchen oder irgend ein anderes Zeichen ist. Hier der Code den ich geschrieben habe:
Private Sub CommandButton1_Click()
Dim PassWort As String
PassWort = InputBox("Geben Sie das Passwort ein", "Passworteingabe")
If PassWort = "" Then Exit Sub
If Not PassWort = "Einlesen" Then
Me.CommandButton1.BackColor = RGB(255, 0, 0)
Me.CommandButton1.ForeColor = RGB(255, 255, 0)
Me.CommandButton1.Caption = "falsche Passworteingabe"
Exit Sub
End If
Me.CommandButton1.BackColor = RGB(0, 255, 0)
Me.CommandButton1.ForeColor = RGB(0, 0, 0)
Me.CommandButton1.Caption = "Daten werden eingelesen"
MsgBox ("test")
Me.CommandButton1.BackColor = &H8000000F
Me.CommandButton1.ForeColor = RGB(0, 0, 0)
Me.CommandButton1.Caption = "Noten der Haupthauslisten einlesen"
End Sub
Wenn jemand einen Tipp hat, wäre ich sehr dankbar.
Ciao Polarfuchs