Discussion :

[NEC14]

Bonjour le forum,

Encore moi. J'ai mis en place ce code dans ThisWorkBook qui normalement devrait interdire l'utilisation du click droit de la souris dans tout mon document, mais il ne fonctionne pas. Pouvez-vous m'apporter votre aide ?
Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Workbook_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    MsgBox " Click droit indisponible "
End Sub

[Invité]

Bonjour

cet évènement n'existe pas pour WorkBook, mais pour WorkSheet, il est donc à mettre sur les feuilles, et non sur le classeur.

Philippe

[NEC14]

Bonjour,

Comme il y a de nombreuses feuilles, j'avais pensé à un code global pour éviter la saisie dans toutes les feuilles. Mais est-ce possible ?

[NEC14]

Avec ce code ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Vous ne pouvez pas utiliser cette fonction"
End Sub