保护Excel自定义UI功能区

Question

目的是编写VBA以检查自定义功能区按钮标签是否已更改。 在Workbook_Open事件中，vba将获取自定义功能区的特定按钮的标签值，并将其与VBA中的硬编码值进行比较。如果它们不相同，则vba将关闭工作簿。

例如，您可以使用此

获取内置命令的标签值

    MsgBox Application.CommandBars.GetLabelMso("PasteSpecialDialog")

但是如何获取自定义功能区按钮标签的值？ GetLabel不能胜任这项工作。

感谢。

Answer 1

循环遍历excel中的每个命令栏。

For Each bar In Application.CommandBars 
if condition = true then
  'Your code here

end if
Next