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.
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.
Il faut appliquer la méthode NewPassword de l'objet DataBase en utilisant DAO
http://warin.developpez.com
Exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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.
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 !!
Bonsoir,
Remplace
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Case Else MsgBox "Une erreur est survenue pendant le changement du mot de passe", _ vbCritical, "Erreur"
pour voir si tu as plus de précision sur l'erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Case Else MsgBox Err.Description, _ vbCritical, "Erreur No." & Err.Number
A+
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??
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??
quelqu'un à une idée pour résoudre ce problème?
ça me casse la tête![]()
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 :
S'il y a un de mot de passe, et que tu veux l'enlever :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 'odb.NewPassword "ancien", "nouveau" odb.NewPassword "123456", ""
A+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 'odb.NewPassword "ancien", "nouveau" odb.NewPassword "123456", "abcdef"
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![]()
Partager