bouton droit

[OliTri]

re - bonsoir ,

une question : sur pas mal de fichiers que j'ai consulter sur le forum , je constate que le bouton droit de ma souris ne fonctionne pas , comment faire pour le desactiver ?

Merci de vous atarder sur ma question .

OliTri

 

[myDearFriend]

Bonsoir OliTri, le Forum,

Pour désactiver le menu contextuel du clic droit dans toutes les feuilles d'un classeur, utiliser l'évènement 'SheetBeforeRightClick' de l'objet Workbook :

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
End Sub


Pour désactiver ce menu contextuel dans une seule feuille particulière du classeur, utiliser l'évènement 'BeforeRightClick' de l'objet Worksheet cette fois :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
End Sub

Dans les 2 cas, il suffit d'affecter la valeur 'True' à l'argument 'Cancel'.

Cordialement.
Didier