Est-il possible de désactiver le clic droit du tableau croisé dynamique ?

Pour tous les tableaux croisés d'une feuille de calcul particulière : (à mettre dans le module VBA de la feuille concernée)

Private sub
 Worksheet_BeforeRightClick(ByVal Target As Range, _
 Cancel As Boolean)
  On Error Resume Next
  Cancel = Not Target.PivotTable Is Nothing
 end sub

Pour tous les TCD du classeur, dans le module ThisWorkbook :

Private sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
 ByVal Target As Range, Cancel As Boolean)
  On Error Resume Next
  Cancel = Not Target.PivotTable Is
 Nothing
 end sub

Pour tous les TCD de n'importe quel classeur, toujours dans ThisWorkbook: Dim WithEvents A As Application

Private sub A_SheetBeforeRightClick(ByVal Sh As Object, _
 ByVal Target As Range, Cancel As Boolean)
  On Error Resume Next
  Cancel = Not Target.PivotTable Is Nothing
 
 end sub

Private sub Workbook_Open()
  Set A = Application
 end sub