Discussion :

[NEC14]

Bonjour à tous,

J'ai mis en place le code ci-dessous. Il me permet d'afficher un UserForm où il est demandé un mot de passe pour accèder au fichier. Si l'utilisateur se trompe 3 fois, le fichier se ferme automatiquement.

Mon soucis est qu'à chaque fois que l'on revient sur la feuille où est le bouton, il faut retaper le mot de passe et c'est cela que je voudrai éviter.

Un fois que le mot de passe a été tapé une fois, et tant que le fichier n'a pas été refermé, celui reste valable.

Pouvez-vous m'aider à compléter mon code s'il vous plait ?
Je vous en remercie par avance

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Private Sub CommandButton1_Click()
If Txt1.Value = "CCLM" Then
testl
Unload Me
MsgBox "L'application n'est plus protégée!!", vbCritical, "Attention!!"
Else
FrmSai.Height = 67
'3 essais uniquement
essai = essai - 1
Label1.Caption = "Plus que..." & essai & " essais": Beep
Txt1.SetFocus: Txt1 = ""
'si les 3 essais ont été tenté sans succès, sortie du fichier
If essai = 0 Then
MsgBox "Vous n'avez pas tapé le bon de passe!!" + Chr(10) + "Au revoir!!"
Unload Me
Dim cmdb As CommandBar
    For Each cmdb In Application.CommandBars
    cmdb.Enabled = True
    Next cmdb
    With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
    .CommandBars(1).Enabled = True
    .CommandBars(1).Controls(1).Enabled = True
    .CommandBars(1).Controls(2).Enabled = True
    .CommandBars(1).Controls(3).Enabled = True
    .CommandBars(1).Controls(4).Enabled = True
    .CommandBars(1).Controls(5).Enabled = True
    .CommandBars(1).Controls(6).Enabled = True
    .CommandBars(1).Controls(7).Enabled = True
    .CommandBars(1).Controls(8).Enabled = True
    .CommandBars(1).Controls(9).Enabled = True
    .CommandBars(1).Controls(10).Enabled = True
    End With
ActiveWorkbook.Save
ActiveWorkbook.Close
End If: End If
End Sub

[Qwazerty]

Salut
dans un module tu rajoutes une variable

Code :

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

Public MdPOK as Boolean

Dans ThisWorkBook Open tu rajoutes l'initialisation de cette variable

Code :

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

MdPOk = False

Dans ton code lorsque l'utilisateur a saisi le bon Mot de pass tu rajoutes

Code :

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

MdPOk = True

Par la suite avant de lancer la fenêtre qui demande le mot de passe, tu vérifies que celui ci n'a pas déjà était tapé avec succès

Code :

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

If Not Mdp then MonUserForm.Show

A++
Qwaz

[laetitia]

bonjour NEC14 l ami Qwazerty le forum un exemple simple a adapter

[Qwazerty]

Salut vous deux
attention tout de même a ne pas confondre excel et un logiciel securisé... quoi que vous fassiez, le code sera toujours accessible, même si vous mettez un mot de passe (peut être différent avec Excel 2007 ... mais surement pas pour trés longtemps).
Il faut bien voir les mots de passe pour ce qu'ils sont, juste un droit d'accés pour eviter que des neophytes aillent gratter dans le code et mettre le boxon , mais en aucun cas un moyen sur des proteger donnée ou code source
A++
Qwaz

[laetitia]

re,tous a faire d accord avec toi Qwazerty comme je l avais dit sur un autre post suffisant pour les nons bidouilleurs excel .c est vrai qu il existe des codes pour casser le code pour acceder a vba project meme sous 2007 enfin bon...

[NEC14]

Bonjour à tous,

Merci à vous deux, cela fonctionne très bien.
A+