Suppression d'un groupe à un utilisateur
Cette fonction permet de supprimer l'appartenance à un groupe d'un utilisateur.
Function DeleteGroupUserX()
'Retire un groupe à un utilisateur
Set wrkDefault = DBEngine.Workspaces(0)With wrkDefault
strNameGroup = InputBox("Entrez le nom du groupe à supprimer : ", _
"Gestion des utilisateurs")
strNameUser = InputBox("Entrez pour quel utilisateur " _
& "il faut retirer le groupe " & strNameGroup, _
"Gestion des utilisateurs")
' Supprime le groupe spécifier de l'utilisateur spécifier et le confirme .Users(strNameUser).Groups.Delete (strNameGroup)
MsgBox "Le groupe " & strNameGroup & _
" à bien été retiré à l'utilisateur " & strNameUser, , _
"Gestion des utilisateurs"
End WithEnd Function
Auteur : Jessy SEMPERE