保护Excel自定义UIfunction区

目的是编写一个VBA来检查自定义function区button标签是否被更改。 在Workbook_Open事件之后，vba将获得自定义Ribbon的特定button的标签值，并将其与VBA中的硬编码值进行比较。 如果他们不一样，vba会closures工作簿。

例如，你可以用这个获得内置命令标签的值

MsgBox Application.CommandBars.GetLabelMso("PasteSpecialDialog") 

但如何获得自定义色带button的标签的价值？ GetLabel不做这项工作。

谢谢。

Answer 1

在Excel中循环访问每个命令栏。

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