Funktion zur Rückgabe des Benutzernamens mit VBA in Microsoft Excel

Die folgende Funktion gibt den Benutzernamen für den angemeldeten Benutzer zurück, funktioniert sowohl unter Windows NT als auch unter Windows 95/98.

Public Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function ReturnUserName() As String ' gibt den NT-Domänen-Benutzernamen zurück Dim rString As String * 255, sLen As Long , tString As String tString = "" On Error Resume Next sLen = GetUserName(rString, 255) sLen = InStr(1, rString, Chr(0)) If sLen > 0 Then tString = Left(rString, sLen - 1) Else tString = rString End If On Error GoTo 0 ReturnUserName = UCase(Trim(tString)) End Function

Wenn Sie den Netzwerkbenutzernamen nicht zurückgeben möchten,
aber den Benutzernamen zurückgeben möchten, den der Benutzer bei der Anwendung registriert hat, können Sie dies tun: