Hallo MM,
den Benutzernamen ermittelst du im Makro so:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub Benutzer()
Dim Buffer, user as String
Dim Ret%
Buffer = Space$(25)
Ret% = GetUserName(Buffer, 25)
Buffer = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
user = UCase(Buffer)
MsgBox user
End Sub
Weiter weiß im Augenblickj auch nicht.
------------------
Gruß Wilfried
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP