Funktion für den Benutzernamen Rückkehr mit VBA in Microsoft Excel
Die folgende Funktion gibt den Benutzernamen für den angemeldeten Benutzer zurück und 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 ' returns the NT Domain User Name 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:
ActiveUserName = Application.UserName