dévalider des sous-menu

Salut !

Vite fait, un exemple :

Rendre inaccessible l'item "Outils, protections" :

Sub InhibeMenuProtections
CommandBars(1).Controls(6).Controls(6).Enabled=False
End Sub

Tout simplement.

A mettre dans "thisworkbook"

Il te suffit de changer les chiffres entre parenthèses selon où est situé dans les menus et sous-menus, l'option que tu veux inhibée.

Attention, ne pas oublier de remettre les choses dans l'ordre au moment de la fermeture du fichier, avec :

CommandBars(1).Controls(6).Controls(6).Enabled=True


@ +

Moa

Bon, j'ai retrouvé tout ça avec l'aide d'un collègue.
J'ai bien réussi à désactiver les sous-menus.

Par contre, il faudrait aussi désactiver le clic droit "copier" "couper" ainsi que le CTRL+C et CTRL+X.

Je ne sais pas trop où chercher car je n'y connaît pas grand chose en VB sous Excel

Bon, j'ai retrouvé tout ça avec l'aide d'un collègue.
J'ai bien réussi à désactiver les sous-menus.

Par contre, il faudrait aussi désactiver le clic droit "copier" "couper" ainsi que le CTRL+C et CTRL+X.

Je ne sais pas trop où chercher car je n'y connaît pas grand chose en VB sous Excel

(je reposte mon message, j'avais pas coché la case "recevoir la réponse par mail") désolée

pourquoi ne pas faire des macros et leur affecter les raccourcis CTRL+C et CTRL+X?
Si quelqu'un a d'autre Id ...