Empêcher de "Masquer un commentaire"

[Arnaud61]

Bonsoir,

J'ai besoin de votre aide!

J'aimerais empêcher à un utilisateur de pouvoir "Masquer un commentaire".

Je souhaite qu'il soit toujours afficher.

Pour cela, j'ai essayé ce code dans un "Workbook.open" mais ça ne fonctionne pas...

Private Sub Workbook_Open()
Application.CommandBars("Cell").Controls("Masquer le commentaire").Enabled = False
End Sub

Quelqu'un aurait une idée de ce qui coince?

En P.J, un fichier exemple.

Merci.

 

[jmd2]

Re : Empêcher de "Masquer un commentaire"

hello

solution alternative :
au lieu d'un commentaire,tu mets un label (barre d'outils formulaire) sur fond jaune, verrouillé.

pas de VBA.

*********************************************************

 

[Arnaud61]

Re : Empêcher de "Masquer un commentaire"

Hummm, c'est les utilisateurs qui doivent mettre les commentaires...

Donc passer par les labels, c'est pas trop possible mais merci pour l'info.

 

[ninbihan]

Re : Empêcher de "Masquer un commentaire"

Bonsoir Arnaud et JMD2,

Peut être ainsi:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("reviewing").Controls(4).Enabled = True
Application.CommandBars("reviewing").Controls(5).Enabled = True
Application.CommandBars("cell").Controls(10).Enabled = True
End Sub

Private Sub Workbook_Open()
Application.DisplayCommentIndicator = xlCommentAndIndicator
'affiche les commentaires
Application.CommandBars("reviewing").Controls(4).Enabled = False
'désactive afficher/masquer le commentaire
Application.CommandBars("reviewing").Controls(5).Enabled = False
'désactive afficher/masquer tous les commentaires
Application.CommandBars("cell").Controls(10).Enabled = False
'désactive afficher dans le menu cellule
End Sub

A tester,

Bonne soirée,

Ninbihan

Edit: ajout menu cellule et réactivation à la fermeture

 

[Arnaud61]

Re : Empêcher de "Masquer un commentaire"

Bonsoir Arnaud et JMD2,

Peut être ainsi:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("reviewing").Controls(4).Enabled = True
Application.CommandBars("reviewing").Controls(5).Enabled = True
Application.CommandBars("cell").Controls(10).Enabled = True
End Sub

Private Sub Workbook_Open()
Application.DisplayCommentIndicator = xlCommentAndIndicator
'affiche les commentaires
Application.CommandBars("reviewing").Controls(4).Enabled = False
'désactive afficher/masquer le commentaire
Application.CommandBars("reviewing").Controls(5).Enabled = False
'désactive afficher/masquer tous les commentaires
Application.CommandBars("cell").Controls(10).Enabled = False
'désactive afficher dans le menu cellule
End Sub

A tester,

Bonne soirée,

Ninbihan

Edit: ajout menu cellule et réactivation à la fermeture

Ca fonctionne nickel!

Merci!

Ninbihan, j'aurais aimé comprendre plus en détail la macro.

Le "reviewing" correspond à quoi?

Comment connaître les numéros des "Controls"?

Bref, j'aurais besoin d'une petite leçon.