dévalider des sous-menu

[drlewis]

Bonjour à tous,

Je souhaiterais savoir s'il est possible de dévalider certains menus d'Excel dans un fichier à son ouverture.

(problèmes de copier-coller, enregistrer sous...)
Pour protéger le document contre le piratage en fait.

Merci pour vos propositions.

 

[Moa]

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

 

[drlewis]

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

 

[drlewis]

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

 

[P1P1]

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