Discussion :

[NEC14]

Bonjour à tous,

Voici mon problème, dans une feuille de calcul Excel lorsque je clique dans la cellule A1, une UserForm (FrmSai) apparaît, c'est une UserForm où l'on demande de saisir un mot de passe, lorsque celui-ci est bon une autre UserForm (FrmTrav) est affichée.
Mon soucis est qu'à chaque fois que je ferme l'UserForm FrmTrav je suis obligé de cliquer de nouveau dans la cellule A1 et à nouveau il m'est demandé le mot de passe, c'est cette dernière opération que je ne souhaite plus utiliser lorsque l'utilisateur a déjà tapé le mot de passe une fois. En clair, une fois qu'il a tapé le mot de passe une fois, il lui suffira par la suite de cliquer dans la cellule A1 pour l'UserForm FrmTrav soit affichée.
Merci pour votre aide

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 CommandButton1_Click()
If Txt1.Value = "APEL" Then
Unload Me
Application.ScreenUpdating = False
For Each feuil In Application.Sheets
feuil.Unprotect Password:="APEL"
Next feuil
Application.ScreenUpdating = True
MsgBox "Les feuilles ne sont plus protégées!!", vbCritical, "Attention!!"
Load FrmTrav
FrmTrav.Show
Else
MsgBox "Vous n'avez pas tapé le bon de passe!!" + Chr(10) + "Vous ne pouvez accéder à cette action!!"
Unload Me
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

[oOVaveOo]

Bonjour,
Tu peux définir une variable en static qui changerait de valeur au premier clic dans A1.
Tu peux tester sa valeur pour afficher ou non ton userform.

[NEC14]

Bonjour,

Mais comment fait-on cela ?

[decondelite]

Code :

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

Static mavariable As TypeMaVariable

A mettre à l'intérieur d'une procédure/fonction.

Lis l'aide en ligne associée au mot clé static.

[NEC14]

Bonjour,

Voilà j'ai tapé ces 2 codes, mais cela ne fonctionne pas. Lorsque je clique dans la cellule A1, rien ne se passe. Le formulaire du mot de passe (FrmSai) ne s'affiche pas, ni le formulaire (FrmTrav).
Pouvez-vous me dire ce qui ne va pas ?

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
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim COL As Long
Dim lig As Long
Dim a As Long
    Static PW As Boolean
    If Not PW Then
        If FrmSai.Txt1.Value = "APEL" Then PW = True
        If PW = True Then
    If Intersect(Range("A1"), ActiveCell) Is Nothing Then Exit Sub
        If IsEmpty(ActiveCell.Value) Then
    lig = 5
    COL = ActiveCell.Column
    a = Cells(lig, COL).Value
        If a = 0 Then COL = COL + 1
        Load FrmSai
        FrmSai.Show
        End If
        End If
        End If
End Sub
Sub PW()
PW = "APEL"
End Sub

Merci par avance

[oOVaveOo]

Bonjour,
Que vaut PW ?

Mets un point d'arrêt et va voir quelle valeur il a.