特定的命令栏不会在关闭菜单中关闭

我已经编写了一个在上下文菜单中显示特定脚本的脚本。编程后，上下文菜单显示我想要启动的脚本，脚本运行良好。特定的命令栏不会在关闭菜单中关闭

'SCRIPT POUR MENU CONTEXTUEL 
Sub AddToCellMenu() 
    Dim ContextMenu As CommandBar 
    Dim MySubMenu As CommandBarControl 

    ' Delete the controls first to avoid duplicates. 
    Call DeleteFromCellMenu 

    ' Set ContextMenu to the Cell context menu. 
    Set ContextMenu = Application.CommandBars("Cell") 

    ' Add one custom button to the Cell context menu "BL OK". 
    With ContextMenu.Controls.Add(Type:=msoControlButton, before:=20) 
     .OnAction = "'" & ThisWorkbook.Name & "'!" & "Bouton_BonLivraisonOK" 
     .FaceId = 71 
     .Caption = "Bon Livraison OK" 
     .Tag = "My_Cell_Control_Tag" 
    End With 

    ' Add one custom button to the Cell context menu "LIVRAISON OK". 
    With ContextMenu.Controls.Add(Type:=msoControlButton, before:=21) 
     .OnAction = "'" & ThisWorkbook.Name & "'!" & "Bouton_LivraisonOK" 
     .FaceId = 72 
     .Caption = "Expédition OK" 
     .Tag = "My_Cell_Control_Tag" 
    End With 

    ' Add one custom button to the Cell context menu "Livraison avec RELIQUAT". 
    With ContextMenu.Controls.Add(Type:=msoControlButton, before:=22) 
     .OnAction = "'" & ThisWorkbook.Name & "'!" & "Bouton_LivraisonReliquat" 
     .FaceId = 73 
     .Caption = "Expédition avec RELIQUAT" 
     .Tag = "My_Cell_Control_Tag" 
    End With 

    ' Add one custom button to the Cell context menu "RAZ". 
    With ContextMenu.Controls.Add(Type:=msoControlButton, before:=23) 
     .OnAction = "'" & ThisWorkbook.Name & "'!" & "Bouton_CellBlank" 
     .FaceId = 70 
     .Caption = "RAZ" 
     .Tag = "My_Cell_Control_Tag" 
    End With 

    ' Add a separator to the Cell context menu. 
    ContextMenu.Controls(20).BeginGroup = True 

End Sub

问题是在关闭文件后contextmenu仍然在其他excel文件中运行。当我处理其他Excel文件时，我需要您的帮助来关闭contextmenu中的功能。

Sub DeleteFromCellMenu() 
    Dim ContextMenu As CommandBar 
    Dim ctrl As CommandBarControl 

    ' Set ContextMenu to the Cell context menu. 
    Set ContextMenu = Application.CommandBars("Cell") 

    ' Delete the custom controls with the Tag : My_Cell_Control_Tag. 
    For Each ctrl In ContextMenu.Controls 
     If ctrl.Tag = "My_Cell_Control_Tag" Then 
      ctrl.Delete 
     End If 
    Next ctrl 

    ' Delete the custom built-in Save button. 
    On Error Resume Next 
    ContextMenu.FindControl(ID:=3).Delete 
    On Error GoTo 0 
End Sub

来源

2016-08-11 Mohamed H

我找到了解决方案。我必须在工作簿中声明CellMenu的打开/关闭。请参考以下代码：

Private Sub Workbook_Activate() 
    Call AddToCellMenu 
End Sub 

Private Sub Workbook_Deactivate() 
    Call DeleteFromCellMenu 
End Subenter code here

来源

2017-02-18 13:16:38

特定的命令栏不会在关闭菜单中关闭

回答

相关问题