Ausführung eines Hilfsmittels begrenzen auf eine bestimmte Gruppe von Nutzern

Martin Richter [Grutzeck Software GmbH]
16.12.2015 13:08

Dir Rechterverwaltung erlaubt zwar detailierte Einschränkungen, aber dennoch ist es manchmal sinnvoll, dass bestimmte Hilfsmittel nur von einem bestimmten Nutzerkreis ausgeführt werden dürfen.

Der nachflogende Makro kann als "Makro vor Ausführen"in einem Hilfsmittel angelegt werden. Er begrenzt die Ausführung des Hauptmakros generell auf Mitglieder der Gruppen "Vertrieb" und "Büro". D.h. nur wer Mitglied einer dieser Gruppen ist, kann diesen Makro auch ausführen. Andere Nutzer erhalten eine Fehlermeldung.

Option Explicit

Dim oGroup, bInGroup
bInGroup = false
For Each oGroup In Application.ActiveUser.Groups
    If oGroup.Name="Vertrieb" Or oGroup.Name="Büro" Then
        bInGroup = true
        Exit For  
    End If
Next

If Not bInGroup Then  
    MsgBox "Sie haben keine Berechtigung für diese Aktion!"  
    Macro.Abort
End If

 

Durchschnittliche Bewertung: 0 (0 Abstimmungen)

Kommentieren nicht möglich