Funcție pentru returnarea numelui de utilizator utilizând VBA în Microsoft Excel

Funcția de mai jos va returna numele de utilizator pentru utilizatorul conectat, funcționează atât în Windows NT, cât și în Windows95 / 98.

Public Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function ReturnUserName () As String 'returnează numele de utilizator al domeniului 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)) Dacă sLen> 0 Atunci tString = Stânga (rString, sLen - 1) Altele tString = rString End If On Error GoTo 0 ReturnUserName = UCase (Trim (tString)) Funcție End

Dacă nu doriți să returnați numele de utilizator al rețelei,
dar doriți să returnați numele de utilizator pe care utilizatorul l-a înregistrat cu aplicația, puteți face acest lucru: