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

Usine à gaz · 8 Août 2020

Bonsoir à toutes et à tous,

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

VB:

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 · 8 Août 2020

Bonsoir Lionel,

VB:

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 · 8 Août 2020

Bonsoir @Usine à gaz , le Forum

Tu devrais essayer comme ceci à mon avis :

VB:

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 · 8 Août 2020

Bonsoir Gérard
Bonsoir Thierry

Merci pour les codes.
Je vais tester,
lionel,

Usine à gaz · 8 Août 2020

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 · 9 Août 2020

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 · 9 Août 2020

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 · 9 Août 2020

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 · 9 Août 2020

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 · 9 Août 2020

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

Usine à gaz · 9 Août 2020

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 · 9 Août 2020

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 · 9 Août 2020

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

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

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires