Discussion :

[sumtech]

Je voudrais ajouter un mot de pass à un formulaire et unikement a ce formulaire car il gere la signature ou non de mon DG
Donc faire que ce formulaire soit sécurisé avec un mot de pass pour qu'il y est que lui qui est acces à ce formulaire
Comment puis je faire ???

Cordialement

[Gary_Stoupy]

J'ai pas très bien compris ta question mais bon je vais tenter de faire avancer le Schmilblick...

Pourquoi ne ferais tu pas une inputbox que tu affiche à l'ouverture de ton formulaire. dans ton inputbox, tu lui demande un mot de passe et si il est pas bon, le formulaire ne s'ouvre pas...

Non ?

[sumtech]

et au niveau du code ca donnerai quoi?

[Gary_Stoupy]

Je ne vais pas te macher tout le travail...
fais une recherche sur inputbox.

Après, tu peux soit la mettre dans ton Form_Load de ton formulaire (si c'est ton formulaire de départ sur lequel tu ve mettre le mot de passe)
ca donnera un truc du style (en algorithme)

rentrer le mot de passe
si mot de passe correct -> poursuivre l'ouverture
sinon -> fermeture du formulaire

sinon, si ton formulaire est appelé suite à un évènement (clic sur un bouton de commande par exemple), tu peux mettre le code dans l'évènement correspondant
Ca donnera un truc du style (en algorithme)

rentrer le mot de passe
si mot de passe correct -> ouverture du formulaire
sinon -> on ne fait rien

[sumtech]

le nom du formulaire est "Validation"

voila mon code

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
 
Private Sub Form_Open(Cancel As Integer)
 
Dim pwd As String
Dim stDocName As String
 
pwd = InputBox("Entrez le mot de passe", , 0, 6000)
If pwd = "fred" Then
 
stDocName = "Validation"
DoCmd.OpenForm stDocName
  Else
  Exit Sub
 
 
End If
End Sub

mais que je rentre n'importe quel mot de passe cela fonctionne
où est mon erreur?

[Gary_Stoupy]

Code :

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

1
2
3
4
5
6
7
8
Dim pwd as String
pwd = "fred"
 
If InputBox("Veuillez saisir le mot de passe", "Mot de passe") = strMP Then
 
else
    exit sub
end if

Essaye avec ca

[sumtech]

Désolé mais il y a toujours le même soucis

je peux rentrer n'importe quel code cela ne me bloque pas en cas d'erreur

[sumtech]

Pouvez vous m'aidez? svp

si il vous manque des infos pour bien comprendre dites le moi

[Tofalu]

Pour moi, une seule solution est sécurisée :

la sécurité de niveau utilisateur. Tout le reste est bricolage est peut être outrepassé en 2 secondes

[sumtech]

donc je suis la demarche de ce lien:http://loufab.developpez.com/securite/#LIV-B-1 ?

[laurent.w]

OUI, très bien orchestré, je l'ai utilisé, mais attention à la mep