我以前也遇到过这个问题 我给你段老大给我的代码 你参考下！
RibbonTabs("功能区1").Visible = False
RibbonTabs("功能区2")("功能组2")("标准按钮9").Enabled = (_usergroup <> "东区销售经理")
RibbonTabs("功能区2")("功能组2")("组合按钮2").Enabled = (_usergroup <> "东区销售经理")
RibbonTabs("功能区2")("功能组3")("标准按钮7").Enabled = Not (_usergroup Like "*销售部")
RibbonTabs("功能区2")("功能组3")("标准按钮8").Enabled = Not (_usergroup Like "*销售部")
RibbonTabs("功能区2")("功能组2").Enabled = _usergroup <> "东区市场部"
RibbonTabs("功能区2")("功能组3").Enabled = _usergroup <> "东区市场部"
Qat().Enabled = _usergroup <> "东区市场部"
[此贴子已经被作者于2011-12-18 22:00:07编辑过]
加好友 
发短信
Post By：2011/12/18 22:00:00 [显示全部帖子]
