Ta fram använarkonto

[cowi]

Hej

 

Är det möjligt att med hjälp av VBA ta fram viket användarkonto det är som har en Excelfil öppen.

Kontonamnet skall skrivas in i en cell som sedan skyddas när användaren kör makrot.

 

Hoppas någon kan hjälpa mig.

cowi

[Monshi]

Nämen, titta vad jag hittade:

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

Sub AAA()
Dim UName As String * 255
Dim L As Long: L = 255
Dim Res As Long
Res = GetUserName(UName, L)
UName = Left$(UName, L - 1)
MsgBox UName
End Sub

http://www.pcreview.co.uk/forums/thread-975366.php

[cowi]

Tack Monshi

 

Precis det jag behövde

 

cowi