Indsæt brugernavn i Excel regneark

Brugernavnet fra hvad ?

Følgende makro indsætter brugernavnet i celle A5:

Sub IndsætBrugernavn()
    [a5] = Application.UserName
End Sub

Nu skriver du ikke hvilket brugernavn du mener, men hvis det er brugernavnet fra Log on, kan du bruge nedenstående, hvorimod hvis det er det brugernavn som Excel er registreret til skal du bruge Jans formel.

Option Explicit
Declare Function Get_User_Name Lib \"advapi32.dll\" Alias _
                \"GetUserNameA\" (ByVal lpBuffer As String, _
                nSize As Long) As Long
Function GetUserName() As String
    Dim lpBuff As String * 25

    Get_User_Name lpBuff, 25
    GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

Herefter indsættes =Getusername() i en tilfældig celle i arket

Hej bak

Din kode lyder spændende. Jeg tror den kan hjælpe mig til en ide omkring audittrail til nogle af mine ark. Dog kan jeg bare ikke få den til at virke. Mit OS er win 2000 med begrænsede rettigheder.
Jeg har placeret din funktion under ThisWorkBook, hvis jeg indtaster formlen i en celle, så får jeg returneret følgende #NAME?

Hilsen

lsimony

Jeg ved desværre ikke hvorfor den ikke virker i thisworkbook, jeg får samme resultat som dig.
Men den virker hvis den indsættes i et normalt modul. (NT4 og Win2000)

Hvis den er i et normalt modul, kan den sagtens kaldes fra Thisworkbook eks.
Private Sub Workbook_Open()
[a5] = GetUserName()
End Sub

Fint. Virker.