Discussion :

[GSFBC]

Bonjour,

Je cherche à exécuter une macro de type Worksheet_BeforeDoubleClick sur une feuille protégée. Je mets donc une commande pour lever la protection avant exécution puis la remettre après, mais la protection ne se remet pas ! Je précise qu'aucun mot de passe n'accompagne la protection de la feuille.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
 
Sheets("Le nom de ma feuille").Unprotect
 
'Mon code
 
Sheets("Le nom de ma feuille").Protect
 
End Sub

Au lancement de la macro, la protection se lève correctement mais elle ne se remet pas à la fin

J'ai testé le même code sur une autre macro qui s'exécute par bouton mais là la protection se remet en place sans problème, je suppose donc qu'il y'a une manip particulière à faire pour les méthodes en "BeforeDoubleClick" ?

Merci de votre aide.

[Daniel.C]

Bonjour,

Ajoute :

Code :

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

Cancel = True

en ligne 2 pour sortir du mode édition.

[Philippe Tulliez]

Bonjour,
Je suppose que le code doit s'exécuter dans la feuille où tu fais le double click donc le nom de la feuille ne doit pas être précisé.
Il y a donc lieu d'utiliser le mot clé Me et de plus le double clic permettant d'éditer la cellule, il faut donner la valeur True à l'argument Cancel pour empêcher l'édition.

Code :

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

1
2
3
4
5
6
7
Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
 Cancel = False
 Me.Unprotect
 ' Code
 Me.Protect
 Cancel = True
End Sub

[GSFBC]

Merci pour vos réponses.

Je ne connaissais pas la syntaxe "Me", merci pour l'astuce

En fait je ne veux pas empêcher l'édition, je détaille un peu plus :

Certaines cellules de ma feuille ne sont pas verrouillées, je veux pouvoir y apporter des modifications lorsque je double-clique dessus.

En écrivant ces lignes, je réalise qu'il y'avait une commande "Exit Sub" sous condition en plein milieu de ma macro, donc le code n'était pas exécuté jusqu'au bout et la protection ne risquait pas de revenir...

Je corrige mon code et je pointerai le sujet comme résolu si ça fonctionne.

Edit :

C'est bon ça fonctionne, merci à vous deux.