Getsetting

Jeg kan ikke lige finde noget om getsetting i Excel. Er du sikker på at det er et regnearksspørgsmål?

Indsæt nedenstående i et komodul og brug funktion =GetUserName() til at hente loginnavn på den person der er logget på.

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

komodul = Kodemodul

Virker fint tak for det.