Just nu i M3-nätverket
Jump to content

Ta fram använarkonto


cowi

Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...