Discussion :

[NEC14]

Bonjour,

J'ai mis en place ce code pour empêcher le click droit dans une feuille. Cependant je me suis aperçu que la code ne fonctionne pas si je me mets dans la barre de menus.
Que faut-il que j'ajoute à mon code ?
Merci par avance

Code :

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

1
2
3
4
5
 
Private Sub WorkSheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    MsgBox " Click droit indisponible "
End Sub

[fred65200]

bonjour,
à tester
dans thisworkbook

Code :

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

1
2
3
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Sinon, il faut voir du coté des APIs

Cordialement

[NEC14]

Boujour,

Cette solution ne fonction pas.
Existe-t'il un moyen de désactiver le click droit de la souris, mais uniquement pour une application bien précise ?
J'ai cherché, mais je n'ai pas trouvé la réponse.
Merci

[ouskel'n'or]

Une façon de détourner le pb, peut-être (si tu ne trouves pas) : Neutraliser les commandes que tu souhaites neutraliser (?!?)

Code :

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

Application.CommandBars.FindControl(ID:=30029).Enabled = false

(trouvé en recherche sur le forum )
Par contre je ne sais pas où trouver les ID de chaque commande et là je compte bien sur fred

[NEC14]

J'ai trouvé ça en Java, mais je ne sais pas comment l'adapter en Vba
Pouvez-vous m'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function right(e)
{
 
var msg = "Désolé, le bouton de droit est désactivé.";
if (navigator.appName == 'Netscape' && e.which == 3)
{
alert(msg);
}
else if (navigator.appName == 'Microsoft Internet Explorer' && event.button==2)
{
alert(msg);
}
return true;
}
document.onmousedown = right;

Ici dans le fichier joint (ce n'est pas de moi, mais de Fring)

http://fring.developpez.com/vba/excel/faceid

[NEC14]

Je n'ai rien trouvé de plus que ce que j'ai.

Je n'ai rien trouvé sur le fait d'inhiber le click droit sur les onglets et les barres d'outils.
J'ai caché la barre de formules et toutes les autres sauf la barre où il y a "Fichier, Edition etc..) Pourquoi je la laisse apparente ? Parce que quelques utilisateurs sont perdus lorsqu'ils ne l'ont pas.
Alors il faut que je m'adapte.

[ouskel'n'or]

Merci mais ces ID concernent les icônes que l'on peut affecter à un bouton ajouté dans une barre d'outils, mais ne correspondent pas aux commandes des menus intégrés.
Mais la réponse doit bien exister quelque part.
Pour ton code en php, il semble également concerner le document ouvert dans l'application correspondante mais pas l'application elle-même. Or les barres de menus ou d'outils sont des objets application. Et le clic de la souris sur un objet application "devrait" également être un événement de l'application (?!) enfin je suppose

Edit
Je viens de voir ton message

Je n'ai rien trouvé sur le fait d'inhiber le click droit sur les onglets et les barres d'outils.
J'ai caché la barre de formules et toutes les autres sauf la barre où il y a "Fichier, Edition etc..)

Connais-tu le mode "Plein écran" ?

Code :

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

    Application.DisplayFullScreen = True

Juste une idée compte tenu de ce que tu viens de dire

[NEC14]

Oui je connais ce code, mais le problème, comme je l'explique plus haut, est que des utilisateurs veulent voir cette barre d'outils, c'est idiot je te l'accorde, mais je ne peux faire autrement.
C'est pourquoi je souhaite conserver cette barre tout en y empêchant le click droit qui permet de restaurer les autres barres et cela je ne le veux pas.