主题：如何判断RibbonTabs功能区或用户菜单打开与否？

如何判断RibbonTabs功能区或用户菜单打开与否？

下述代码只能判断功能区是否包含常用功能

If RibbonTabs.Contains("常用功能") Then
RibbonTabs("常用功能").Groups("运行状态").Items("标签1").text = "启动时间:" & format(Date.now, "G")
RibbonTabs("常用功能").Groups("运行状态").Items("标签2").text = "启动时间:" & format(Date.now, "G")
RibbonTabs("常用功能").Groups("运行状态").Items("标签3").text = "启动时间:" & format(Date.now, "G")
vars("kaishishijian")=format(Date.now, "G")
End If