Funkcja zwracania nazwy użytkownika za pomocą VBA w Microsoft Excel

Poniższa funkcja zwróci nazwę zalogowanego użytkownika, działa zarówno w systemie Windows NT, jak i Windows 95/98.

Funkcja deklaracji publicznej GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Funkcja ReturnUserName() As String ' zwraca nazwę użytkownika domeny NT Dim rString As String * 255, sLen As Long , tString As String tString = "" W przypadku błędu Wznów Dalej 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

Jeśli nie chcesz zwracać nazwy użytkownika sieci,
ale chcesz zwrócić nazwę użytkownika, którą użytkownik zarejestrował w aplikacji, możesz to zrobić: