Lassen Sie sich per Makro den unter Windows angemeldeten Namen auslesen.

Declare Function GetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Sub ShowUserName()
    Dim buffer As String * 100
    Dim BuffLen As Long
    BuffLen = 100
    GetUserName buffer, BuffLen
    MsgBox Left(buffer, BuffLen - 1)
End Sub

Windows_Anmeldename_anzeigen-VBA.zip