Double clic impossible

Bonjour le forum

Dans outils => protection => Protéger la feuille j'ai décoché => sélectionner les cellules vérouillées

Ma cellule E18 est bien inactive sauf que mon double clic qui est dans ThisWorkbook n'est plus actif.

Quelqu'un aurait-il une solution?

Merci pour vos éventuels retours

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
      If Target.Address = "$I$3" Then Application.Run ("AfficherMasquerColonneJ")
  Cancel = True
End Sub

Toutes mes excuses quel C$N!!!

Cordialement

Bonjour le forum

J'ai déverrouillée la cellule I3 où je fais le double clic ça fonctionne mais ça déprotège la feuille.

Merci à vous pour vos retours

Bonjour

comme tu lance une macro qui fait de l'affichage et masquage de colonne...

Application.Run ("AfficherMasquerColonneJ")

a mon avis à la fin de ton code tu as oublié de reverrouiller la feuille...

Fred

Bonjour fred2406

Oui voilà l'oubli

Merci

Bien cordialement

Sub AfficherMasquerColonneJ()
  With ActiveSheet
    .Unprotect
    .Columns("J").Hidden = Not .Columns("J").Hidden
    .Protect UserInterfaceOnly:=True
  End With
End Sub