' **************************************************************
'  Modul:  DieseArbeitsmappe  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
' für Makro Adminrechte
Private Declare Function IsNTAdmin Lib "advpack.dll"(ByVal b1 As Long, ByRef b2 As Long) As Long
' für Funktion Benutzerrechte2
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function BenutzerName1()
    Application.Volatile
    BenutzerName1 = Application.UserName
End Function

Function BenutzerName2()
    ' von Jürgen Wenzel
    ' API Funktion gehört zu dieser Funktion
    ' für alle Betriebsystem
    Dim Buffer As String * 100
    Dim BuffLen As Long
    Application.Volatile
    BuffLen = 100
    GetUserName Buffer, BuffLen
    BenutzerName2 = Left(Buffer, BuffLen - 1)
End Function

Function BenutzerName3()
    ' Betriebsystem NT und ab 2000
    Application.Volatile
    BenutzerName3 = Environ("Username")
End Function

Sub Adminrechte()
    ' Von K.Rola
    ' Prüfen ob Adminrechte für aktuellen Benutzer
    MsgBox CBool(IsNTAdmin(0&, 0&))
End Sub

Code eingefügt mit: Excel Code Jeanie

Datei Benutzernamen