PasswordChar + DimMdlg
07.03.2005 11:57:56
der.dan
Ich benutze einen Eingabedialog um ein Blatt ein- bzw. auszublenden. Nun würde ich gerne die eingegebenen Zeichen als Sternchen oder so anzeigen lassen (eben wie bei jeder anderen Anwendung die eine Passworteingabe erfordert...)
Mein Problem hierbei ist, daß ich nicht weiß was ich als Objekt angeben soll und vor allem wo.
So wie ich es in dem Code beschrieben habe funktioniert das ganze natürlich wieder nicht. :-(
Private Sub CommandButton5_Click()
Dim Mdlg, Titel, Voreinstellung, Wert1
Mdlg = "Bitte Passwort eingeben"
Titel = "Supervisor"
Voreinstellung = ""
Wert1 = InputBox(Mdlg, Titel, Voreinstellung)
Mdlg.PasswordChar = "*"
If Wert1 = "I am god" Then
Worksheets("Supervisor").Visible = True
Else: Worksheets("Supervisor").Visible = False
End If
End Sub
Daher bitte ich erneut um Eure Hilfe.
Mit freundlichen Grüßen,
Dan