Lancer une macro en double clic sur une cellule protégée

Version imprimable

Bonjour,

j'ai une feuille protégée contre les erreurs de saisies et je veux lancer une macro en cliquant sur la cellule C6

En cherchant j'ai trouvé et essayé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect Password:=passw If Selection.Count = 1 Then If Not Intersect(Target, Range("C6")) Is Nothing Then MsgBox "test ok" End If End If 'ActiveSheet.Protect Password:=passw End Sub
Lorsque ma feuille est déprotégée, tout se passe bien , mais si je reprotège en fin de macro, cela ne fonctionne plus
Ma cellule C6 est en format "non verrouillée"

j'imagine qu'il faille aujouter un paramètre à :

Code:

ActiveSheet.Protect Password:=passw

Mais je ne trouve pas lequel

merci

Bonjour,

Passw est une variable, mais que vaut-elle?

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    passw = "mdp" 'Saisir le mot de passe entre guillemets
    ActiveSheet.Unprotect Password:=passw
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("C6")) Is Nothing Then
            MsgBox "test ok"
        End If
    End If
    ActiveSheet.Protect Password:=passw
End Sub

Cdlt

28/06/2019, 07h58
retraite83

Bonjour

oui password est une variable, je l'utilise sans soucis par ailleurs

j'ai cherché dans les paramètres Excel également au moment de la protection de la feuille mais sans trouver qq chose qui permet ensuite de laisser la possibilités de cliquer sur la cellule une fois la feuille protégée

Comme par exemple "Modifier les scénarios" mais sans succès non plus

Peut être n'est-ce-pas possible
28/06/2019, 08h03
ARTURO83

oui password est une variable, je l'utilise sans soucis par ailleurs Mais dans votre code, quelle valeur prend-elle?

Avec le code que je vous aie fourni, j'attribue "Mdp" à la variable passw, et lorsqu'on sélectionne la cellule C6, on obtient bien le message "Ok" et aussitôt après la feuille est bien verrouillée.