2、设置在MainTablechanged事件:
Dim no2 As RibbonMenu.TextBox = RibbonTabs("筛选").Groups("筛选").Items("no2")If MainTable.Name = "表B" Then no2.Visible = FalseElse no2.visible = TrueEnd If