Discussion :

[Xof68]

Bonjour,

j'aimerai ouvrir un formulaire au moyen d'un mot de passe (fenêtre de dialogue)
Ce mot de passe est stocké dans le champ d'une table (Table : MDP - champ : Mot de passe) et peut donc être modifié facilement.

Merci pour vos réponses

Christophe

[ffdream62]

Si tu n'as pas besoin de quelque chose de costaud niveau sécurité, tu peux toujours créer un petit formulaire "mot de passe" qui va vérifier le MDP stocké dans ta table.

[Invité]

Bonjour

As-tu consulté la FAQ Access ? : http://access.developpez.com/faq/?page=TAAdmin#login

Philippe

[marsouin_89]

Bonjour,

Voici comment je fais :

Dans un module, tu copie le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Binary 'Binary pour comparaison de texte en binaire
 
Function CompareTxt(Mot1 As String, Mot2 As String) As Integer
    If Mot1 = Mot2 Then 'Si mot identique (casse  comprise)
        CompareTxt = 1
    Else
        CompareTxt = 0
    End If
End Function

Dans ton formulaire :

Code :

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

1
2
3
4
5
6
7
8
Dim PassWord As String
PassWord = DFirst("MotPasse", "Tbl_PassWord")
 
If CompareTxt(Me.MotDePasse, PassWord) = 1 Then
   DoCmd.OpenForm("NomDeTonFormulaire")
Else
  MsgBox "Mot de passe incorrect ! ! !"
End If

A toi de voir la suite pour, éventuellement, envisager le changement du mot de passe.

Cordialement

Christophe

[Dolphy35]

Salut,

si tu veux sécuriser, tu peux passer par une fonction de cryptage de tes données, cela sécurise un peu plus mais Access n'est pas le must en terme de protection de données. A savoir que tout ce qui se construit, se détruit.

http://mhubiche.developpez.com/Acces...tage/vigenere/

@++

[ffdream62]

Tu peux utiliser l'InputBox aussi

[alu1308]

Bonjour marsouin_95

Ta suggestion de mot de passe sur formulaire m'intéresse beaucoup. Cela veut donc dire que si l'on souhaite ouvrir un formulaire, pour qu'il s'ouvre il faut entrer un mot de passe.

J'ai essayé de faire ce que tu as dit.

J'ai rentré ton premier code dans un module que j'ai appelé "Module Mdp"

J'ai ensuite fait ma table T_Password avec mon champ MDP.

Ensuite j'ai cliqué sur l'icône VBA puis suis allée sur mon formulaire en question et j'ai entré le code que tu as donné mais adapté à mon cas :

Code :

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

1
2
3
4
5
6
7
8
Dim Password As String
Password = DFirst("azerty", "T_Password")
 
If CompareTxt(Me.MDP, Password) = 1 Then
   DoCmd.OpenForm("F_Weeklys_New")
Else
  MsgBox "Mot de passe incorrect ! ! !"
End If

Cependant quand j'ouvre le formulaire, il ne me demande aucun mot de passe et s'ouvre normalement.

Merci d'avance pour ta réponse,

[marsouin_89]

Bonjour,

Comme on te l'a suggéré, tu pourrais envisager la InputBox.

Imaginons, que tu ais un premier formulaire avec un bouton pour ouvrir le formulaire avec mot de passe.

Sur le clik du bouton, tu mets alors :

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
Dim Password As String
Password = DFirst("azerty", "T_Password")
 
On_Relance:
   'Ouverture de la boite de dialogue pour saisir le mot de passe
   Dim sInput As String
   sInput = InputBox("Entrez le mot de passe.", "Inscription")
 
   If CompareTxt(sInput, Password) = 1 Then 'Si le mot de passe est correct
       'Ouverture du formulaire sécurisé
       DoCmd.OpenForm("F_Weeklys_New")         
   ElseIf StrPtr(sInput) = 0 Then 'Si on appuie sur Annuler
       MsgBox "Ouverture annulée.", vbOKOnly, "Information"                        
   'Si le mot de passes n'est pas bon ou que l'on clique sur Ok sans mot de passe
   ElseIf CompareTxt(sInput, Password) = 0 Or Len(sInput) = 0 Then
       MsgBox "Mot de passe non valide.", vbOKOnly + vbCritical, "Information"
       GoTo On_Relance 'On relance la boite de dialogue
    End If

Cordialement

Christophe

[Xof68]

Bonsoir,

pour marsouin_89 :
Ta première version est simple et marche bien hormis que pour la ligne de code :
PassWord = DFirst("MotPasse", "Tbl_PassWord")
il manque [] : PassWord = DFirst("[MotPasse]", "Tbl_PassWord")

Pour Alu1308 :
Il faut que tu passes par un formulaire intermédiaire où tu vas saisir son mot de passe avant de t'ouvrir ton formulaire si le mot de passe est bon.
Je me suis inspiré du post sur le forum "protéger l'accès à un formulaire par un mot de passe". Toutefois la version de marsouin_89 est plus simple.
Si tu as besoin de plus d'explications, tu peux me contacter par message privé.

Je passe le message en résolu.

Merci à tous

Christophe