Supprimer un utilisateur

Cette fonction permet de supprimer un utilisateur du groupe de travail en cours.

Function DeleteUserX()

Dim wrkDefault As Workspace
Dim strNameUser As String

Set wrkDefault = DBEngine.Workspaces(0)
strNameUser = InputBox("Entrez le nom d'l'utilisateur à supprimer : ", _
    "Gestion des utilisateurs")
wrkDefault.Users.Delete (strNameUser)
MsgBox "L'utilisateur " & strNameUser & " à bien été supprimé.", , _
    "Gestion des utilisateurs"

End Function

Auteur : Jessy SEMPERE