参考:
http://www.foxtable.com/help/topics/2306.htm
全部隐藏是:
For Each t As RibbonMenu.Tab In RibbonTabs t.Visible =FalseNext