Microsoft 365 interdire le double clic et clic droit sur une plage de cellules

[Usine à gaz]

Bonsoir à toutes et à tous,

J'ai des UserForm qui s'ouvrent en SelectionChange.

Private Sub Worksheet_SelectionChange(ByVal r As Range)
If Not Intersect(r, Range("f19:f64")) Is Nothing Then
Application.EnableEvents = False
ActiveCell.Offset(0, 1).Resize(1, 27).Select
Application.EnableEvents = True
End If

If Not Intersect(r, Range("ab19:ab64")) Is Nothing Then
infos_com1.Show
[a1].Select
End If
If Not Intersect(r, Range("ac19:ac64")) Is Nothing Then
infos_com2.Show
[a1].Select
End If
If Not Intersect(r, Range("ad19:ad64")) Is Nothing Then
infos_com3.Show
[a1].Select
End If
If Not Intersect(r, Range("ae19:ae64")) Is Nothing Then
infos_com4.Show
[a1].Select
End If
End Sub

Pour ces cellules, j'ai besoin d'interdire le double clic et le clic droit.
N'ayant pas trouvé les bons codes ... je continue mes recherches...
Mais si vous aviez la solution, ça m'arrangerait bien
Si besoin, je mettrai un fichier test.
Avec mes remerciements,
lionel,

 

[job75]

Bonsoir Lionel,

Private Sub Worksheet_BeforeDoubleClick(ByVal r As Range, Cancel As Boolean)
If Not Intersect(r, [f19:f64,ab19:ae64]) Is Nothing Then Cancel = True
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal r As Range, Cancel As Boolean)
If Not Intersect(r, [f19:f64,ab19:ae64]) Is Nothing Then Cancel = True
End Sub

Bonne nuit.

 

[_Thierry]

Bonsoir @Usine à gaz , le Forum

Tu devrais essayer comme ceci à mon avis :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
    Cancel = True
End If
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
    Cancel = True
End If
End Sub

Bien à toi, à vous
@+Thierry

EDIT Salut Job, bonne nuit à toi aussi

 

[Usine à gaz]

Bonsoir Gérard
Bonsoir Thierry

Merci pour les codes.
Je vais tester,
lionel,

 

[Usine à gaz]

Re

J'ai testé les 4 codes ... ça ne fonctionne pas
Je vais faire un fichier test car c'est peut-être mon "usine à gaz" qui pose problème
Je continue mes recherches,
lionel,

 

[Usine à gaz]

Re-Bonsoir Gérard
Re-Bonsoir Thierry

Merci d'avoir été encore une fois présents
J'ai fait un fichier test et tous les codes fonctionnent.
Je vous remercie encore une fois
Bonne nuit,
lionel

 

[Usine à gaz]

J'y reviens encore car malgré les codes cela n'empêche pas les ouvertures des UserForm quand je double clic ou clic droit dans les cellules de AB5 à AE20

Je n'arrive pas à comprendre comment l'empêcher.
Je joins le fichier que j'ai complété.
Auriez-vous la solution ?
Un grand merci
lionel,

 

[job75]

Bonjour Lionel, _Thierry,

Tu devais être fatigué hier soir Lionel quand tu as bricolé nos codes.

Je te laisse te reprendre, je reviendrai si tu continues à patauger.

Bon dimanche.

 

[Usine à gaz]

Bonjour Gerard, _Thierry,

lol OUI j'étais fatigué hier
J'ai modifié le fichier en remettant vos codes. J'ai juste changé les n° de lignes.
Mais même situation, c'est le clic gauche activant "SelectionChange" qui s'exécute en 1er.
lionel,

 

[job75]

Maintenant ton fichier va bien, normal que la SelectionChange s'exécute...

 

[Usine à gaz]

Bonjour Gérard,
Merci d'être encore là

Oui mais ce que je recherche est que si double clic ou clic droit = SelectionChange ne s'exécute pas
lionel,

 

[job75]

Bah les macros BeforeDoubleClick et BeforeRightClick s'exécutent après la SelectionChange !

Elles ne peuvent donc pas empêcher son exécution.

 

[Usine à gaz]

Merci Gérard ... alors je suis "chocolat" lol.
Merci d'avoir été là encore une fois
lionel,