- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 隐藏“数据表”和“管理项目”求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30383)
-- 发布时间：2013/3/27 8:31:00
-- 隐藏“数据表”和“管理项目”求助
设置“录入员”代码不能隐藏“数据表”和“管理项目”功能区，求指点，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:茂泉宠物用品.zip |
-- 发布时间：2013/3/27 9:05:00
--
多谢版主了
-- 发布时间：2013/3/27 9:15:00
--
版主：您好！如果我要控制二个用户怎么修改代码，如再增加一个“张三”用户
-- 发布时间：2013/3/27 9:36:00
--
不会弄，麻烦您弄个附件我好吗，多谢了
-- 发布时间：2013/3/27 9:58:00
--
多谢版主了！我们想用这个软件，但刚开始学习它，这样可以启用吗，还是等学会了再启用狐表
-- 发布时间：2013/3/27 10:05:00
--
如果我还要增加隐藏“杂项”怎样加代码
-- 发布时间：2013/3/27 15:08:00
--
版主：您好！我还是没有设置出来，再麻烦您给个附件行吗，谢谢您！
-- 发布时间：2013/3/27 15:48:00
--
以下是引用muhua在2013-3-27 9:50:00的发言：
Select Case User.Name
Case "录入员" ,"张三"
RibbonTabs("Table").Visible = False
RibbonTabs("Project").Visible = False
RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Case Else
RibbonTabs("Table").Visible = True
RibbonTabs("Project").Visible = True
RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End Select
以上是隐藏“数据表”、“管理项目”的代码，同时我还想隐藏“打印输出”、“杂项”，请教老师怎样修改代码，谢谢！
-- 发布时间：2013/3/27 16:32:00
--
多谢版主了
-- 发布时间：2013/3/27 16:43:00
--
版主：您好！我还要隐藏“打印输出”怎么加代码，不好意思了，谢谢