Protection de feuille et insertion de commentaires

Bonjour,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
If Not Target.Locked Then ActiveSheet.Unprotect Password:=""
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked Then ActiveSheet.Protect Password:=""
End Sub

JB
On 23 fév, 14:18, "jcp66" <jc...@wanadoo.fr> wrote:

Bonjour
J'ai une feuille avec des cellules verouillées et déverrouillées. Ce tte
feuille est protégée pour éviter l'écrasement de certaines cellule s.
Par contre je voudrais pouvoir insérer des commentaires dans les cellule s
dévérouillées. Ors dans le menu insetion le choix commentaires est g risé.
Y aurait il une solution?
merci
cordialement
jcp

merci
jcp

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
dd86b721-e9a0-4c1e-b3fa-38177c400674@h25g2000hsf.googlegroups.com...
Bonjour,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
If Not Target.Locked Then ActiveSheet.Unprotect Password:=""
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked Then ActiveSheet.Protect Password:=""
End Sub

JB
On 23 fév, 14:18, "jcp66" <jc...@wanadoo.fr> wrote:

Bonjour
J'ai une feuille avec des cellules verouillées et déverrouillées. Cette
feuille est protégée pour éviter l'écrasement de certaines cellules.
Par contre je voudrais pouvoir insérer des commentaires dans les cellules
dévérouillées. Ors dans le menu insetion le choix commentaires est grisé.
Y aurait il une solution?
merci
cordialement
jcp