以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]以普通用户登录时,不显示菜单  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46034)

--  作者:花开的声音
--  发布时间:2014/2/15 22:10:00
--  [求助]以普通用户登录时,不显示菜单
开发的项目没有设计有菜单,要求以普通用户登录系统时,不显示系统菜单,如何添加代码?
--  作者:有点甜
--  发布时间:2014/2/15 22:28:00
--  
 编写afteropenproject事件,如下代码

Dim itm As RibbonMenu.Tab
For Each itm In RibbonTabs
    itm.Visible = False
Next