gibt es eine Möglichkeite via VBA den Anmeldenamen an einem Netzwerk zu ermitteln?
Die Application.UserName liest wohl nur den in Excel eingetragenen Namen aus.
Danke.
Matthias
gibt es eine Möglichkeite via VBA den Anmeldenamen an einem Netzwerk zu ermitteln?
Die Application.UserName liest wohl nur den in Excel eingetragenen Namen aus.
Danke.
Matthias
eigentlich hilft die Recherche schon. Die frage wurde schon paar mal beantwortet.
Benutzernamen zu Autorisationzwecken abfragen
x2 = Environ("USERNAME") ' unter NT
oder andere Betriebsysteme
Dim BName As String
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Sub Benutzerfilter()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
BName = Left(Buffer, BuffLen - 1)
If BName <> "Jürgen" Then Exit Sub
'--------------------------------------
' Andere Ausführungen, wenn Name stimmt
'--------------------------------------
End Sub
Von Jürgen Wenzel
Gruß Hajo
Gruß Knud
Diese Zeilen weisen dem Wert name den aktuell angemeldeten Benutzernamen zu.
Achtung! Wenn man die Funktion user abmelden im Startmenü abschaltet kann es zu Komplikationen kommen!