Interdire/autoriser sur feuille protegee

[Damoiselle]

Bonjour,

J'ai une feuille protegée

Je souhaiterai savoir comment coder 2 choses :
1 - Comment permettre et interdire à un utilisateur d'ajouter/modifier un commentaire sur une cellule ?
2 - Sur cette feuille j'ai des groupes de colonnes. Je souhaiterais savoir comment rendre active la possibilité de grouper / dégrouper ces colonnes pour l'utilisateur

merci

 

[skoobi]

Re : Interdire/autoriser sur feuille protegee

Bonsoir,
pour répondre à la 1ere question:

pour interdire (griser commentaire dans menu insertion):

Application.CommandBars("Worksheet Menu Bar").Controls("Insertion").Controls("Commentaire").Enabled = [B]False[/B]

pour autoriser:

Application.CommandBars("Worksheet Menu Bar").Controls("Insertion").Controls("Commentaire").Enabled = [B]True[/B]

Et au cas ou la barre d'outil "révision" est affichée:

pour interdire (griser commentaire de la barre d'outil):

Application.CommandBars("Reviewing").Controls("Commentaire").Enabled = False

pour autoriser:

Application.CommandBars("Reviewing").Controls("Commentaire").Enabled = True

Voilà.