Discussion :

[NEC14]

Bonjour à toutes et à tous et tous mes voeux pour 2008.

Voici mon problème. Le code ci-dessous me permet lorsque je clique dans une cellule de faire apparaître un formulaire. Ce que je souhaite faire, c'est qu'au premier click dans une cellule un mot de passe soit demandé, mais uniquement lors du premier click, une fois que le mot de passe ai été renseigné, il ne faut plus que la demande apparaisse.
Je ne sais pas faire cela, pouvez-vous m'aider ?
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Long
Dim Lig As Long
Dim A As Long
    If Intersect(Range("ZO1"), 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
    If Weekday(Cells(Lig, Col).Value, 2) < 6 Then
    If IsNumeric(Application.Match(Cells(Lig, Col), Sheets("Don").Range("fériés"), 0)) Then Exit Sub
Load FrmAbs
FrmAbs.Show
        End If
    End If
End Sub

[bidou]

tu définis dans ton classeur un nom masqué qui a pour valeur 0. Tu teste cette valeur pour l'affichage du mot de passe.
lorsque le mot de passe est donné tu le passes à 1
dans le beforeClose tu le remet à 0

[NEC14]

tu définis dans ton classeur un nom masqué qui a pour valeur 0. Tu teste cette valeur pour l'affichage du mot de passe.
lorsque le mot de passe est donné tu le passes à 1
dans le beforeClose tu le remet à 0

Bonjour,

Excuses moi mais je n'ai rien compris. Tu n'as pas un exemple s'il te plait ?
Merci

[tirex28]

Bonsoir,

Excuses moi mais je n'ai rien compris. Tu n'as pas un exemple s'il te plait ?

Le principe proposé par Bidou consiste à stocker une valeur indiquant si le mot de passe a déja été demandé, puis à tester cette valeur afin d'éviter d'afficher la demande systématiquement. Bidou propose d'utiliser un nom, tu peux aussi utiliser une variable locale à la procédure:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static Pw As Boolean
    If Not Pw Then
        'Demande du mot de passe
        Pw = True 'Si le mot de passe est correct, sinon sortir de la procedure
    End If
    'Traitement
End Sub

Cordialement,

Tirex28/

[patbou]

bonjour,

tu peux utiliser un inputbox pour ceci

tu définis dans ton classeur un nom masqué qui a pour valeur 0. Tu teste cette valeur pour l'affichage du mot de passe.
lorsque le mot de passe est donné tu le passes à 1
dans le beforeClose tu le remet à 0

Code :

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

1
2
3
4
5
6
 
dim valid_motpas as boolean
valid_motpas = false
motdepasse = inputbox("rentrer votre mot de passe")
if motdepasse = "mot ...." then 
valid_motpas = true

ou mieux encore utiliser la boite de dialogue "mot de passe" (je ne connais pas le nom)

[NEC14]

bonjour,

tu peux utiliser un inputbox pour ceci

Code :

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

1
2
3
4
5
6
 
dim valid_motpas as boolean
valid_motpas = false
motdepasse = inputbox("rentrer votre mot de passe")
if motdepasse = "mot ...." then 
valid_motpas = true

ou mieux encore utiliser la boite de dialogue "mot de passe" (je ne connais pas le nom)

Bonjour,
Je ne sais pas si c'est le lendemain des fêtes, mais je ne comprends toujours pas.
Où dois-je mettre le code ? ainsi que le nom masqué qui a pour valeur 0 ?
C'est la brasse coulée. Désolé