ACTIVER/DÉSACTIVER UNE COMMANDE DE MENU

' Script 1 
Sub Script1() 
Dim mcd As CommandBar 
Dim mmm 
Dim nnn 
Set mcd = Application.CommandBars.ActiveMenuBar 
For Each mmm In mcd.Controls 
    ' Si menu Outils 
    If mmm.ID = 30007 Then 
        ' affiche toutes les commandes 
        For Each nnn In mmm.Controls 
            Debug.Print nnn.ID & ":" & nnn.Caption & "/" & nnn.Type 
        Next 
    End If 
Next 
Set mcd = Nothing 
End Sub 

'Script 2 
'Désactive la commande Macro du menu Outils 
Dim CtlMacro As CommandBarControl 
    Set CtlMacro = CommandBars.FindControl(Type:=msoControlPopup, ID:=30017) 
    If Not CtlMacro Is Nothing Then CtlMacro.Enabled = Not CtlMacro.Enabled 
    Set CtlMacro = Nothing