Discussion :

[kabikou]

Bonjour,

Ayant défini la sécurité de ma base au niveau utilisateur, je me pose une question.

Comment faire pour que l'utilisateur puisse changer son mot de passe via un formulaire ou une procédure VBA?

Si ce n'est pas possible, faut-il lui donner accès au menu Outils/Sécurité/gestion des Utilisateurs?

Merci

[Didier L]

Bonjour,
Si ce n'est pas possible, faut-il lui donner accès au menu Outils/Sécurité/gestion des Utilisateurs?
Merci

J'ai bien peur que ce soit difficile autrement à cause du cryptage du mot de passe.

Cependant si l'utilisateur n'est pas dans le groupe administrateur, ce menu ne lui offrira guère plus de possibilité que de changer uniquement son mot de passe

[Tofalu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With DBEngine.Workspaces(0)
.Users(.UserName).NewPassword "ancien", "nouveau"
End With

Reste plus qu'à créer une petite interface toute simple

[Didier L]

Bonjour Tofalu,

Et si l'ancien mot de passe n'est pas le bon, une erreur est générée ?
Peut-on la géré dans une gestion d'erreur afin d'avertir l'utilisateur ?

Il est vrai que je cherchais toujours a tester d'abords l'ancien mot de passe pour vérifier que ce soit le bon avant d'affecter le nouveau mot de passe
D'ou mes problèmes de test avec le cryptage

[kabikou]

Bonjour,

Tofalu, je viens de tester ta méthode, lorsque je clique sur le bouton où j'ai mis ton code, il me met une erreur d'execution 3033.

Vous n'avez pas l'autorisation requise ....

Qu'est ce qui bloque?

[Didier L]

Il ne faut pas travailler avec la Workspace(0) qui est l'espace de travail en cour donc comme ton utilisateur ouvre cet espace avec son identifiant, il n'a pas les droits administrateur.

En revanche tu dois pouvoir ouvrir un autre workspace avec l' identifiant et mot de passe de l'administrateur et la tu devrais pouvoir modifier le mot de passe.

[kabikou]

La j'avoue que je ne comprends pas.
Il faut que je mette Workspaces(0) ou (1)?

[Didier L]

Non,

Regarde dans l'aide comment ouvrir une nouvelle workspace avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set MaWorkspace=DbEngine.CreateWorkspace(....

[kabikou]

Alors voila ce que j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Commande0_Click()
Set wks = DBEngine.CreateWorkspace(Changepwd, root, xxxxxx)
With DBEngine.Workspaces(Changepwd)
.Users(.UserName).NewPassword "ancien", "nouveau"
End With
End Sub

Et maintenant, j'ai une erreur 3029 Compte ou mot de passe non valide.

Autre question : A quoi correspondent ancien et nouveau?
Est-ce qu'il faut rentrer les mots de passe en dur dans le code?

[Didier L]

Tu doit remplacer ancien et nouveau par les valeurs de l'ancien mot de passe et du nouveau que l'utilisateur vient de saisir
De même le Username doit être remplacé par le login de l'utilisateur!

[kabikou]

Désolé de faire mon boulet, mais la j'ai du mal !!

Comment je récupère ce que l'utilisateur va saisir?
Est-ce à moi de faire un formulaire ou l'utilisateur va saisir son nouveau mot de passe ou bien est-ce la fenetre Access qui s'affiche?

Je trouve aucune doc la dessus, je trouve ca bizarre que personne ne l'ai jamais demandé?!

[Didier L]

Tu as deux solutions,

La première c'est toi qui la proposé :

Si ce n'est pas possible, faut-il lui donner accès au menu Outils/Sécurité/gestion des Utilisateurs?

Tu personalise ta barre de menu et effectivement tu lui donne cet accès et tu n'as rien à développé.

Deuxième solution comme te le suggère Tofalu tu peux développer ton propre formulaire et la tu travaille avec le code vu précédement. [/code]

[Tofalu]

A priori, un utilisateur peut changer son mot de passe non ? Même s'il n'a pas les droit d'administration ... à mon erreur le soucis vient de l'ancien mot de passe qui n'est pas "ancien"

Par contre didier, il ne faut pas remplacer UserName par sa valeur, c'est une propriété retournée pas le workspace

[kabikou]

Je ne vois pas ce que tu veux dire.

Le mot de passe n'est pas "ancien", c'est pour ca que je me demandais s'il fallait rentrer le mot de passe dans le code, et eventuellement comment le récupérer?

Par contre didier, il ne faut pas remplacer UserName par sa valeur, c'est une propriété retournée pas le workspace

La pour moi c'est du charabia... mais bon entre modérateurs vous devez vous comprendre

[Tofalu]

Avant de te lancer dans de telles manip ... essaye de comprendre ce que fais ce code ... A quoi correspond ancien et nouveau ... Ce serait une abhération de les saisir directement dans le code. .. Non tu dois créer une interface avec deux zones de texte où l'utilisateur saisira son ancien mot de passe et son nouveau ...

[kabikou]

Effectivement, je crois que pour l'instant je vais seulement autoriser le menu aux utilisateurs et dans un second temps, je vais regarder le lien que t'as mis pour m'inspirer.

Merci en tout cas.