Microsoft 365 Interdire double clic et clic droit

Usine à gaz · 6 Juin 2021

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 :

VB:

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 · 6 Juin 2021

Bonjour,
Cancel = True

VB:

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

laurent950 · 6 Juin 2021

Bonjour,
Cancel = True

VB:

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 · 6 Juin 2021

Bonjour,

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

Usine à gaz · 6 Juin 2021

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 · 7 Juin 2021

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 :

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

Microsoft 365 Interdire double clic et clic droit

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

laurent950

laurent950

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Discussions similaires