Exemple : contrôle des autorisations utilisateur

Cet exemple montre comment vous pouvez empêcher les membres de groupes d’utilisateurs spécifiques d’effectuer une action.

Le code permet à un utilisateur de remplacer la valeur d’un champ de défaut uniquement si l’utilisateur appartient au groupe d’utilisateurs Admin.

Ajoutez le code à la procédure d’événement ActionCanExecute afin que la vérification soit effectuée lorsqu’un utilisateur tente d’exécuter une action.

Function ActionCanExecute(ActionName)
        ' Initialize the function's return value
	' to avoid unpredictable behavior.
        ActionCanExecute = False 
        On Error Resume Next
        If ActionName = "UserDefinedActions.BugReplaceAction1" _
            And Not User.IsInGroup("Admin") then
            ActionCanExecute = False
            msgbox "You do not have permission to perform this action"
        Else
            ActionCanExecute = True
        End If
        PrintError "ActionCanExecute"
        On Error GoTo 0
End Function