[Résolu] [Calc] Désactiver le menu contextuel

[secathor]

Bonjour a tous

Je suis entrain de convertir les macros VBA d'un fichier Excel.

L'une des macros affiche une boite de dialogue lors d'un bouton droit de la souris.
Lorsque je ferme cette boite de dialogue, le menu contextuelle apparait.

J'aimerai donc déactivé ce menu, est-ce qu'il y a moyen de le faire ?

Merci de votre aide !

[secathor]

Voici la réponse a ma question :

Code : Tout sélectionner

Option Explicit
  Global oDocView As Object
  Global oContextMenuInterceptor As Object
'_______________________________________________________________________________
Sub registerContextMenuInterceptor
	oDocView = ThisComponent.CurrentController
	oContextMenuInterceptor = CreateUnoListener("ThisDocument_", "com.sun.star.ui.XContextMenuInterceptor")
	oDocView.registerContextMenuInterceptor(oContextMenuInterceptor)
End Sub
'_______________________________________________________________________________
Sub releaseContextMenuInterceptor
	On Error Resume Next
	oDocView.releaseContextMenuInterceptor(oContextMenuInterceptor)
End Sub
'_______________________________________________________________________________
Function ThisDocument_notifyContextMenuExecute(ContextMenuExecuteEvent As Object) As Variant
  dim aaa as integer
  aaa = msgbox("blabla", 4 + 48)
  if aaa = 6 then
'    msgbox "Yes"
    ThisDocument_notifyContextMenuExecute = com.sun.star.ui.ContextMenuInterceptorAction.IGNORED
  else
'    msgbox "No"
	ThisDocument_notifyContextMenuExecute = com.sun.star.ui.ContextMenuInterceptorAction.CANCELLED
  end if
End Function