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

[Oukcha]

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   AgrandirRéduire

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