Funkcija za vrnitev uporabniškega imena z uporabo VBA v programu Microsoft Excel

Spodnja funkcija bo vrnila uporabniško ime prijavljenega uporabnika, deluje tako v sistemu Windows NT kot v sistemu Windows95/98.

Javno razglasi funkcijo GetUserName Lib "advapi32.dll" _ Vzdevek "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) Kot dolga funkcija ReturnUserName () As String 'vrne uporabniško ime domene NT Dim rString As String * 255, sLen As Long , tString As String tString = "" On Napaka Nadaljuj Naprej sLen = GetUserName (rString, 255) sLen = InStr (1, rString, Chr (0)) Če je sLen> 0 Potem je tString = Levo (rString, sLen - 1) = rString End If On Error Pojdi na 0 ReturnUserName = UCase (Trim (tString)) End Funkcija

Če ne želite vrniti omrežnega uporabniškega imena,
če pa želite vrniti uporabniško ime, ki ga je uporabnik registriral v aplikaciji, lahko to storite: