仅当personal.xlsb是可见的时,才会加载右键单击宏

时间:2019-05-03 13:58:14

标签: excel vba

我在personal.xlsb“此工作簿”模块中插入了以下内容:

Const strMacro8 = "Compare Sum of Ranges"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error Resume Next
     Application.CommandBars("Cell").Controls(strMacro8).Delete

End Sub

Private Sub Workbook_Open()

Dim cBut8

On Error Resume Next

Application.CommandBars("Cell").Controls(strMacro8).Delete


Set cBut8 = Application.CommandBars("Cell").Controls.Add(Temporary:=True)


With cBut8
   .Caption = strMacro8
   .Style = msoButtonCaption
   .OnAction = "CompareRanges"
End With

End Sub

如果在Excel 2016加载时personal.xlsb隐藏,则不会出现右键单击宏。只有在最初加载Excel 2016时personal.xlsb是可见的时,它们才会出现。

任何人都可以阐明这一点吗?

0 个答案:

没有答案