我在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是可见的时,它们才会出现。
任何人都可以阐明这一点吗?