Hente Windows logon bruger ind i VBA kode?

Fandt dette et andet sted:

Function User()
    Application.Volatile
    User = Application.UserName
End Function

Prøv at lægge funktion fWin2KUserName (nedenfor) ind først. Med makroen primitivt rettet til at brugernavnet indsættes i B2, ser det sådan ud:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
   
Function fWin2KUserName() As String
    Dim lngLength As Long, lngX As Long
    Dim strUserName As String
    strUserName = String$(254, 0)
    lngLength = 255
    lngX = apiGetUserName(strUserName, lngLength)
    If lngX <> 0 Then
        fWin2KUserName = Left$(strUserName, lngLength - 1)
    Else
        fWin2KUserName = "Ukendt bruger"
    End If
End Function


Sub Makro10()

Dim strBruger
strBruger = fWin2KUserName
Range("B2").Select
Selection = strBruger

End Sub

Set wshNetwork = CreateObject("WScript.Network")
    Bruger = wshNetwork.UserName

Jeg vælger at acceptere kabbaks svar, da det absolut er det mest simple og virker :D nu er det bare længe siden jeg har brugt denne hjemmeside, og er fantastisk dårlig til at finde ud af hvordan det virker. Så kabbak hvis du lige skriver igen, så accepterer jeg, så du kan få pointene.

et svar ;-))

Marker mit navn i boksen til venstre og tryk accepter