> Jeg er ved at lave en applikation i excel hvor jeg gerne vil logge hvem
der
> ændre i et regne ark. For at dette er muligt skal jeg bruge Login navnet
for
> den aktuelle bruger.
Hejsa, prøv at se på følgende API-kald :
'Genarel Declarations
Private Declare Function WNetGetUserA Lib "Mpr" (ByVal lpName As String,
ByVal lpUserName As String, lpLenght As Long) As Long
Private Declare Function GetComputerNameA Lib "Kernel32" (ByVal lpBuffer As
String, NSize As Long) As Long
'Ny Funktion
Function User() As String
Dim Bruger As String
Bruger = Space(255)
Call WNetGetUserA(vbNullString, Bruger, 255&)
User = Left$(Bruger, InStr(Bruger, vbNullChar) - 1)
End Function
'Ny Funktion
Function GetCmpUserName() As String
Dim sBuffer As String * 255
If GetComputerNameA(sBuffer, 255&) <> 0 Then
GetCmpUserName= Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
Else
GetCmpUserName= ""
End If
End Function
Mvh.
Peter Ingemann =)
|