Commentaire sur cellule protégée

[bbcancer]

Bonjour

J'ai une macro (Private Sub Worksheet_Change(ByVal Target As Range)) sur la feuille "planning" où j'ai intégré la protection de la feuille par mot de passe (toto) et les commentaires sont autorisés, et une MFC est intégrée. Les cellules sont déverrouillées.

Voici mon problème : Lorsque les cellules sont verrouillées, les utilisateurs peuvent ajouter des commentaires. Or une fois ces cellules verrouillées, je souhaite que plus aucun utilisateur ne puisse modifier cette cellule, ni même ajouter un commentaire.
Comment puis je faire?

Pour exemple, j'ai joins un fichier où janvier j'ai verrouillé les cellules et février les cellules sont déverrouillées.

Merci pour votre aide

Cordialement

 

[GIBI]

Re : Commentaire sur cellule protégée

Bonjour,

la réponse doit être ici (en couplant avec selectionchange )

https://www.excel-downloads.com/threads/interdire-autoriser-sur-feuille-protegee.86595/

 

[BOISGONTIER]

Re : Commentaire sur cellule protégée

Bonjour,

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = ActiveSheet.ProtectContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.CommandBars("Worksheet Menu Bar").Controls("Insertion").Controls("Commentaire").Enabled = _
      Not ActiveSheet.ProtectContents
End Sub

Dans un module

Sub auto_close()
   Application.CommandBars("Worksheet Menu Bar").Controls("Insertion").Controls("Commentaire").Enabled = True
End Sub

JB