Funkcija za vraćanje korisničkog imena pomoću VBA u programu Microsoft Excel

Dolje prikazana funkcija vratit će korisničko ime prijavljenog korisnika, radi u sustavima Windows NT i Windows95/98.

Javna deklarirana funkcija GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) Kao duga funkcija ReturnUserName () As String 'vraća NT domenu Korisničko ime Dim rString Kao String * 255, sLen Kao dugo , tString As String tString = "" Uključeno Pogreška Nastavi Sljedeća sLen = GetUserName (rString, 255) sLen = InStr (1, rString, Chr (0)) Ako je sLen> 0 Tada je tString = Lijevo (rString, sLen - 1) Ostalo tString = rString Kraj ako je pogreška Idi na 0 ReturnUserName = UCase (Trim (tString)) Funkcija završetka

Ako ne želite vratiti korisničko ime mreže,
ali želite vratiti korisničko ime koje je korisnik registrirao u aplikaciji, možete učiniti sljedeće: