Microsoft 365 Interdire double clic et clic droit

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche 🙂

Mes petites élucubrations du dimanche (lol ça me détend 😉)
Dans le fichier test joint, je bloque les double clic et clic droit.
Jusque là pas de souci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("a1:z10000")) Is Nothing Then
Application.ScreenUpdating = False
    MsgBox ("C'est un seul clic !" & nbcel)
CreateObject("wscript.shell").SendKeys "{ESC}" 'Gérard
Application.ScreenUpdating = True
Exit Sub
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("a1:z10000")) Is Nothing Then
Application.ScreenUpdating = False
    MsgBox ("C'est un clic gauche !" & nbcel)
CreateObject("wscript.shell").SendKeys "{ESC}" 'Gérard
Application.ScreenUpdating = True
Exit Sub
End If
End Sub

J'ai une interrogation que je n'arrive pas à résoudre.
Souci d'affichage ou pour faire avancer le Schmilblick (1976) 😄

Quand je fais un clic droit, après avoir validé le MsgBox, la fenêtre apparaît :

Très furtivement, c'est- vrai : mais je voudrais ne pas la voir du tout lol 🙂
Auriez-vous la solution ?
Avec mes remerciements,
Amicalement,
lionel,

 

[laurent950]

Bonjour,
Cancel = True

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("a1:z10000")) Is Nothing Then
Application.ScreenUpdating = False
Cancel = True
    MsgBox ("C'est un clic gauche !" & nbcel)
CreateObject("wscript.shell").SendKeys "{ESC}" 'Gérard
Application.ScreenUpdating = True
Exit Sub
End If
End Sub

 

[TooFatBoy]

Bonjour,

Notre camarade connait déjà le Cancel=True.
Non ? 😉

 

[Usine à gaz]

Bonjour laurent950, Bonjour Marcel,

LOL Bon sang mais c'est bien sûr !!! je le connaissais 😡
Merci Laurent,

Bonne fin de dimanche à vous deux,
lionel 🙂

 

[soan]

Bonjour Lionel, le fil,

Titre du sujet : « Interdire double clic et clic droit »

voici ma solution très simple, qui n'a rien d'une usine à gaz :

Spoiler: cliquer ici

débranche la souris ! 😊 y'a même 3 bonus : le clic gauche aussi est interdit, ainsi que la molette de la souris. (utilisation de la molette pour défilement haut ou bas, et pression sur la molette qui fait que ça équivaut à un 3ème bouton)​

soan