Ich gebe in einem Inputbox ein Passwort ein und möchte das diese Eingabe als "********" im Eingabefeld erscheint. Ich weiß nicht ob das machbar ist. Wer kann helfen?
Private Function PasswortHolen(Beschriftung As String) As String
Call TimerSetzen
PasswortHolen = InputBox(Beschriftung)
End Function
Private Sub Passwortchar()
Dim hwnd&, hwnd1&, lngRück&, Klasse$
Dim Stil As Long
hwnd = FindWindow("#32770", "Microsoft Excel")
hwnd1 = GetWindow(hwnd, GW_CHILD)
Do
Klasse = String(255, 0)
lngRück = GetClassName(hwnd1, Klasse, 250)
Klasse = Left$(Klasse, InStr(1, Klasse, _
Chr(0)) - 1)
If LCase(Klasse) = "edit" Then
SendMessageBynum hwnd1, _
EM_SETPASSWORDCHAR, 42, 0
End If
hwnd1 = GetWindow(hwnd1, GW_HWNDNEXT)
Loop While hwnd1 <> 0
End Sub
Private Sub TimerSetzen()
hlngTimerKennung = SetTimer(0, 0, 1000, AddressOf ApiTimer1)
If hlngTimerKennung = 0 Then MsgBox _
"Fehler beim Initialisieren des Timers"
End Sub
Private Sub TimerZerstören()
If hlngTimerKennung <> 0 Then KillTimer 0, hlngTimerKennung
End Sub
Private Sub ApiTimer1(ByVal hwndOwner&, _
ByVal lngWindowMessage&, ByVal hlngRückTimerKennung&, ByVal lngTickCount&)
TimerZerstören
Passwortchar
End Sub
Private Function GetFuncAdress&(strFunktion$)
Dim hVBA&, lngRück&, strFunktionsnummer$
Dim hlngFunction&, strFuncNameUnicode$
strFuncNameUnicode = StrConv(strFunktion, vbUnicode)
GetVbaProjekt hVBA
If hVBA <> 0 Then
lngRück = GetFunktionsnummerString(hVBA, strFuncNameUnicode, strFunktionsnummer)
If lngRück = 0 Then
lngRück = GetFunktionsnummerLong(hVBA, strFunktionsnummer, hlngFunction)
If lngRück = 0 Then GetFuncAdress = hlngFunction
End If
End If
End Function