Funksjon for å returnere brukernavnet ved hjelp av VBA i Microsoft Excel

Funksjonen nedenfor vil returnere brukernavnet for den påloggede brukeren, fungerer i både Windows NT og Windows95/98.

Offentlig erklær funksjon GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function ReturnUserName () As String 'returnerer NT Domain User Name Dim rString As String * 255, sLen As Long , tString As String tString = "" Ved feil Gjenoppta Neste sLen = GetUserName (rString, 255) sLen = InStr (1, rString, Chr (0)) If sLen> 0 Da tString = Left (rString, sLen - 1) Else tString = rString End If On Error GoTo 0 ReturnUserName = UCase (Trim (tString)) Sluttfunksjon

Hvis du ikke vil returnere nettverksbrukernavnet,
men vil returnere brukernavnet som brukeren har registrert med programmet, kan du gjøre dette: