Changer le Mot de Passe d'une Base Access par Le code [Fait]

[sigap]

Bonjour à Toute la Communauté

Je souhaite savoir comment proceder pour changer le mot de passe d'une base ACCESS à l'aide du Code VB ou VBA.

Merci.

[Tofalu]

Il faut appliquer la méthode NewPassword de l'objet DataBase en utilisant DAO

http://warin.developpez.com

Exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ChangeMotPass()
On Error GoTo err
Dim odb As DAO.Database
Set odb = CurrentDb
odb.NewPassword "ancien", "nouveau"
MsgBox "Mot de passe changé"
 
fin:
Set odb = Nothing
Exit Sub
 
err:
Select Case err.Number
    Case 3031
        MsgBox "Mot de passe non valide", vbCritical, "Sécurité"
    Case Else
        MsgBox "Une erreur est survenue pendant le changement du mot de passe", _
            vbCritical, "Erreur"
End Select
Resume fin
End Sub

[sigap]

Exercice Résolu.
Merci une fois de plus à tous les rédacteurs et Annimateurs du Forum.
Ce que vous faites n'a pas de prix.

[Kisty10]

Bonjour,

je viens d'utiliser ton code dans un bouton mais quand je click sur le bouton il m'affiche le message d'erreur qui est dans le code !!

[LedZeppII]

Bonsoir,

Remplace

Code :

1
2
3
    Case Else
        MsgBox "Une erreur est survenue pendant le changement du mot de passe", _
            vbCritical, "Erreur"

par

Code :

1
2
3
    Case Else
        MsgBox Err.Description, _
            vbCritical, "Erreur No." & Err.Number

pour voir si tu as plus de précision sur l'erreur.

A+

[Kisty10]

j'ai modifié le code comme ta dis et j'ai eu cette erreur :

Impossible de modifier le mot de passe d'une base de données ouverte en mode partager !!!

alors comment faire pour le modifier a ton avis??

[Kisty10]

pour plus d'info, je viens de testé d'ouvrir ma bdd en mode exclusive mais j'ai eu une autre erreur :

Mot de passe non valide!

la je comprend pas !!! comment je doit ouvrir ma bdd??

[Kisty10]

quelqu'un à une idée pour résoudre ce problème?
ça me casse la tête

[LedZeppII]

Bonsoir,

Effectivement il faut ouvrir la base de données en mode exclusif.

S'il n'y a pas de mot de passe, et que tu veux en mettre un :

Code :

1
2
'odb.NewPassword "ancien", "nouveau"
odb.NewPassword "", "123456"

S'il y a un de mot de passe, et que tu veux l'enlever :

Code :

1
2
'odb.NewPassword "ancien", "nouveau"
odb.NewPassword "123456", ""

S'il y a un de mot de passe, et que tu veux le changer :

Code :

1
2
'odb.NewPassword "ancien", "nouveau"
odb.NewPassword "123456", "abcdef"

A+

[Kisty10]

Merci LedZeppII,
bon je testais ce que tu ma proposé mais ça ne marche pas. bon maintenant j'utilise une méthode facile par rapport a celle ci, j'ai créer un formulaire avec deux bouton (OK & Annuler) et une zone de texte, voila
merci pour vos réponses