Modification du mot de passe de l'utilisateur en cours

Cette fonction permet de modifier le mot de passe de l'utilisateur en cours.

Function NewPassWordUserX()

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 = CurrentUser
        strOldPassWord = InputBox("Utilisateur " & strNameUser _
            & ",veuillez entrer votre ancien mot de passe.")
        strPassWord = InputBox("Entrez votre 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
                On Error GoTo ErrorOldPassWord
                usrNew.NewPassword strOldPassWord, ""
                MsgBox "Mot de passe changé !"
                Exit Do
        End Select
    Loop
End With
Exit Function

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

End Function

Auteur : Jessy SEMPERE