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