Discussion :

[supierre]

Bonjour,

Je souhaiterais désactiver le clic droit pour tout objet sur mon classeur.

Je connaissait déja la solution passant par l'évènement "BeforeRightClic" mais celà ne s'applique qu'aux cellules,

Avec un peu de recherche (merci google) j'ai trouvé un code qui me satisfait presque:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub DESACTIVER_clicDroit()
For Each cb In Application.CommandBars
    cb.Enabled = False
Next
End Sub
 
Sub ACTIVER_clicDroit()
For Each cb In Application.CommandBars
    cb.Enabled = True
Next
End Sub

mais le seul cas qui n'est pas désactivé c'est quand je clic droit sur une forme de dessin (ajouté par : Insertion/Formes/"choix d'une forme quelconque")

je suis en train de m'arracher les cheveux pour voir comment désactiver le menu qui s'ouvre pourtant à chaque fois...

merci pour tout élément qui serait susceptible de m'aider.

[Daniel.C]

Bonjour,

D'après ce que je lis :

http://www.rondebruin.nl/contextmenu.htm

Le menu contextuel des Shapes ou Pictures ne fait pas partie de la collection "CommandBars". Il ne serait donc pas possible d'y accéder via VBA. C'est du moins ce que je crois comprendre... L'année commence mal.

[supierre]

Alors,
Tout d'abord merci pour cette réponse constructive.

Ensuite, en poussant un peu plus loin la réflexion sur mon objectif,
je suis en train de réaliser un panneau de contrôle pour utilisateur.

Voici la solution que j'avais imaginé:
-affichage plein écran de excel (via code: application.displayFullScreen = true)
-insertion d'une forme lié à une macro "rien" (donc sans code) pour éviter les clics gauche sur ma feuille en dehors des boutons présents et ainsi de révéler les formules de ma feuille et leurs modifications (donc une forme transparente)
-Désactivation du clic droit sur tout le classeur (objet de ma demande plus haut)

y aurait-il une solution plus adaptée à mon problème?
Car ici ce qui bloque est que l'on peu séléctionner la forme transparente via un clic droit. (la réponse pourrait peut-être venir dune protection de la feuille? je n'ai jamais été familié de cette méthode, et ne connait pas vraiment les possibilités)

[Daniel.C]

Le seul contournement que j'aie pu trouver peut se révéler très lourd selon ce que tu fais : protéger la feuille avec l'option "userinterfaceonly" et procéder uniquement par macro. Tu peux n'interdire que la modification des objets. Pour le reste, fais comme tu l'as envisagé pour le clic droit.

[supierre]

Merci beaucoup pour ton aide,

En définitive:

-Ma forme avec la macro "Rien" empêche les clics gauche sur les cellules recouvertes
-La protection de la feuille par mot de passe empêche déjà les clics droits sur la forme
-La désactivation des clics droits par VBA (posté au premier post) empêche les clics droits sur les cellules où l'utilisateur peut écrire.

le niveau de protection est satisfaisant à mon goût

merci beaucoup.