以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  屏蔽菜单项的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79042)
--  作者：digger_deng
--  发布时间：2015/12/23 11:58:00
--  屏蔽菜单项的代码
写了一段屏蔽菜单项的代码，但是最后两行报错，无法屏蔽“日常工作”项下的“窗口”，错误截屏见附件
此主题相关图片如下：qq截图20151223114324.jpg
按此在新窗口浏览图片
Dim gp As RibbonMenu.Group
gp = RibbonTabs("Common").Groups("Data")
gp.Visible = False
gp = RibbonTabs("Common").Groups("ClipBoard")
gp.Visible = False
gp = RibbonTabs("Common").Groups("Statisic")
gp.Visible = False
gp = RibbonTabs("Common").Groups("Edit")
gp.Visible = False
gp = RibbonTabs("Common").Groups("QuickStatistic")
gp.Visible = False
gp = RibbonTabs("Common").Groups("window")
gp.Visible = False
--  作者：大红袍
--  发布时间：2015/12/23 12:07:00
--  

大小写要一致才行。 Window