Mit VBA eine Windowsanmeldung nachstellen
Speedpilot
Ich zerbreche mir nun schon eine Weile den Kopf über folgendes Problem:
Prinzipiell möchte ich ein Stempelfeld auf dem Papier "digitalisieren".
Es soll also ein Feld in den Excel Arbeitsblättern geben, welches auf klick, den Benutzername und das Passwort abfragt, und bei positiver Authentifizierung den BN in das Feld einträgt.
Es reicht leider nicht nur den aktuell angemeldeten BN einzutragen.
Dies bekomme ich mit folgendem hin.
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000
Private Declare Function _
FindWindow Lib "User32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function _
GetWindowLong Lib "User32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function _
SetWindowLong Lib "User32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function _
DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Sub CommandButton3_Click()
Dim Netzwerk As Object
Set Netzwerk = CreateObject("wscript.network")
..
UCase(Netzwerk.UserName)...
Da es eine Vielzahl von Berechtigten gibt, muss die "Identifikation" über den Netzwerk, bzw. dem Windowspasswort läufen.
Ist es irgendwie möglich aus der Lib User32 einen auf dem Rechner bekannten, aber nicht unbedingt angemeldeten User mit passwort abzufragen?
Ist das Problem einigermaßen verständlich?
Vielen Dank im Voraus und viele Grüße
Speedpilot