Функция за връщане на потребителското име чрез VBA в Microsoft Excel

Функцията по -долу ще върне потребителското име за влезлия потребител, работи както в Windows NT, така и в Windows95/98.

Публично обявяване на функция GetUserName Lib "advapi32.dll" _ Псевдоним "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) Като дълга функция ReturnUserName () As String 'връща NT домейна Потребителско име 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)) Ако sLen> 0 Тогава tString = Вляво (rString, sLen - 1) В противен случай tString = rString End If On Грешка GoTo 0 ReturnUserName = UCase (Trim (tString)) Крайна функция

Ако не искате да връщате потребителското име на мрежата,
но искате да върнете потребителското име, което потребителят е регистрирал в приложението, можете да направите това: