Change Mot Passe ACCESS-2007-VBA [FAQ] [Résolu]

[PapyBulleur]

Bonjour,
Impossible de trouver du code permettant de remplacer, en VBA, un mot de passe par un autre dans une base ACCESS-2007 (accdb) pour laquelle un mot de passe est requis.
L'instruction NewPassword ne donne pas le résultat escompté.
Par ex, le code suivant donne systématiquement un err.Number 3621 : "base de données ouverte en mode partagé". Pourtant dans Options Access/Avancé le mode exclusif est activé !
NB : Bien entendu, cette base fonctionne parfaitement, y compris la demande de mot de passe puis son ouverture.
Merci d'avance...

Code :

1
2
3
4
5
6
7
8
9
10
Sub ChangeMotPass()
On Error GoTo err
Dim odb As DAO.Database
Set odb = CurrentDb
If IsNull(TextAncien) Then txtX = "" Else txtX = TextAncien
If IsNull(TextNouveau) Then txtY = "" Else txtY = TextNouveau
odb.NewPassword txtX, txtY
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

[PapyBulleur]

Bonjour tous,
Newpassword semble (Semble car je ne suis pas un expert) ne fonctionner que vers une autre base.
En effet, il semble bien qu'il ne soit pas possible de modifier le mot de passe de la base en cours.
Merci de réagir si cette proposition n'est pas correcte.

[loufab]

Bonjour,
Désolé pour la réponse tardive.

Même constat avec le paramètre activé.

Par contre en forçant l'ouverture en mode Exclusif (menu ouvrir/mode exclusif)
ça fonctionne.

De même qu'en utilisant le commutateur dans la ligne de commande.

Newpassword fonctionne bien pour la base courante.

Cordialement,

[PapyBulleur]

Super, effectivement cela fonctionne.
Je ne souhaitais pas imposer une manip manuelle d'ouverture de base à mes utilisateurs d'où la recherche obstinée d'une solution plus élégante.
Le commutateur ( /excl) dans la ligne de commande du raccourci associé à une gestion du PW par des champs textes puis la méthode newpassword sous VBA sont donc la clé de mon problème !
Merci vraiment pour votre réponse