Discussion :

[pilounet54]

Bonjour
J'ai ceci. Je cherche à déprotéger avec un bouton.

Code :

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

1
2
3
4
5
6
If Not Intersect(Target, Range("plageMNOPQ")) Is Nothing Then
                    MsgBox "acces interdit pour tout le monde"
                    Application.EnableEvents = False
                    Range("A2").Select
                    Application.EnableEvents = True
                End If

Comment je peux faire ?
Merci

[Paritec]

Bonjour Pilounet54 le forum
plageMNOPQ c'est une zone nommée???
de plus le reste de la macro il est ou? c'est dans une procédure événementielle je suppose?
Maintenant tu veux débloquer, avec un bouton mais il faut aussi inhiber le message, bref des explications claires STP et aussi peut-être un petit fichier,
c'est comme l'histoire des 3 colonnes, incompréhensible ta demande.
a+
Papou

[Theze]

Bonjour,

Une piste :

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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim MotDePasse As String
 
    If Not Intersect(Target, Range("plageMNOPQ")) Is Nothing Then
 
        'Attention, si la zone contient plusieurs cellules, le mot de passe sera demandé
        'à chaque entrée de cellule !!!
 
        'si dans la zone, le mot de passe est-il connu ?
        If MsgBox("Cette zone a un accès restreint, avez-vous le mot de passe ?", vbYesNo) = vbYes Then
 
            'si oui, le demande
            MotDePasse = InputBox("Entrez le mot de passe !", "Zone protégée.")
 
            'si faux, viré !
            If MotDePasse <> "MonMot" Then
 
                MsgBox "Mot de passe érroné !"
 
                Application.EnableEvents = False
                Range("A2").Select
                Application.EnableEvents = True
 
            End If
 
        'si le mot de passe n'est pas connu, viré !
        Else
 
            Application.EnableEvents = False
            Range("A2").Select
            Application.EnableEvents = True
 
        End If
 
    End If
 
End Sub

Hervé.

[pilounet54]

merci beaucoup