Modification du mot de passe d'un utilisateur

Cette fonction permet de modifier le mot de passe d'utilisateur.

Function NewPassWordX()

Dim wrkDefault As Workspace
Dim usrNew As User
Dim strOldPassWord As String
Dim strPassWord As String
Dim strNameUser As String

Set wrkDefault = DBEngine.Workspaces(0)

With wrkDefault
    Do While True

        strNameUser = InputBox("Entrez le nom de l'utilisateur à qui " _
            & "il faut changer le mot de passe :")
        strOldPassWord = InputBox("Entrez l'ancien mot de passe " _
            & "de l'utilisateur " & strNameUser & ":")
        strPassWord = InputBox("Entrez un nouveau mot de passe :")

        Set usrNew = .Users(strNameUser)

        Select Case Len(strPassWord)
            Case 1 To 14
                On Error GoTo ErrorOldPassWord
                usrNew.NewPassword strOldPassWord, strPassWord
                MsgBox "Mot de passe changé !"
                Exit Do
            Case Is > 14
                MsgBox "Mot de passe trop long !"
            Case 0
                usrNew.NewPassword strOldPassWord, ""
                MsgBox "Mot de passe changé !"
                Exit Do
        End Select

    Loop
End With

Exit Function

ErrorOldPassWord:
     MsgBox "Ancien mot de passe incorrect, " _
        & "sa mise à jour a donc été annulée", , _
        "Gestion des utilisateur"

End Function

Auteur : Jessy SEMPERE