Funkcija, skirta grąžinti vartotojo vardą naudojant „Microsoft Excel“ VBA

Žemiau pateikta funkcija grąžins prisijungusio vartotojo vartotojo vardą, veikia tiek „Windows NT“, tiek „Windows95/98“.

Viešoji deklaravimo funkcija GetUserName Lib "advapi32.dll" _ Pseudonimas "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) Kaip Long Function ReturnUserName () As String 'grąžina NT domeno vartotojo vardą Dim rString As String * 255, sLen As Long , tString kaip eilutė tString = "" Įjungus klaidą tęsti kitą = rString pabaiga, jei įvyksta klaida GoTo 0 ReturnUserName = UCase (Trim (tString)) pabaigos funkcija

Jei nenorite grąžinti tinklo vartotojo vardo,
bet norite grąžinti vartotojo vardą, kurį vartotojas užregistravo programoje, galite tai padaryti: