Functie voor het retourneren van de gebruikersnaam met VBA in Microsoft Excel

De onderstaande functie retourneert de gebruikersnaam voor de aangemelde gebruiker, werkt in zowel Windows NT als Windows95/98.

Public Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function ReturnUserName() As String ' retourneert de NT Domain User Name Dim rString As String * 255, sLen As Long , tString As String tString = "" Bij fout Hervatten volgende sLen = GetUserName(rString, 255) sLen = InStr(1, rString, Chr(0)) Indien sLen > 0 Dan tString = Left(rString, sLen - 1) Else tString = rString End If On Error GoTo 0 ReturnUserName = UCase(Trim(tString)) End Function

Als u de netwerkgebruikersnaam niet wilt retourneren,
maar de gebruikersnaam wilt retourneren die de gebruiker heeft geregistreerd bij de toepassing, kunt u dit doen: