以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列举菜单按钮名称  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159137)
--  作者：lihe60
--  发布时间：2020/12/15 13:23:00
--  列举菜单按钮名称

If User.Name = "录入员" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
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 If


如何列出所有菜单按钮的名称，如RibbonTabsOther").Groups("Execute").Items("Command")
--  作者：有点蓝
--  发布时间：2020/12/15 14:05:00
--  
参考：http://www.foxtable.com/webhelp/topics/1926.htm
--  作者：lihe60
--  发布时间：2020/12/15 15:27:00
--  
Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("Table").Groups("Table").Items
    itm.Enabled = True
Next

如果遍历打印输出下的按钮，如何写？
--  作者：有点蓝
--  发布时间：2020/12/15 15:45:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71594&skin=0
--  作者：lihe60
--  发布时间：2020/12/16 9:38:00
--  
RibbonTabs("Project").Groups("Property").Items("LoadUserSetting").visible = False

LoadUserSetting这个项目事件隐藏如何写？
[此贴子已经被作者于2020/12/16 9:42:23编辑过]
--  作者：有点蓝
--  发布时间：2020/12/16 9:55:00
--  
事件？那是内置功能，无法隐藏，只能隐藏菜单项。再说发布后事件都无法看到和编辑的，有必要隐藏吗？
--  作者：lihe60
--  发布时间：2020/12/16 10:05:00
--  
可以禁用吗？
--  作者：有点蓝
--  发布时间：2020/12/16 10:08:00
--  
到项目属性里把关闭开发功能设置为true，这样就只有开发者用户可以使用了
--  作者：lihe60
--  发布时间：2020/12/16 11:23:00
--  
如果隐藏内部函数的功能，代码如何写？
--  作者：有点蓝
--  发布时间：2020/12/16 11:36:00
--  
看8楼，关闭开发功能。如果要隐藏内部函数菜单，参考：RibbonTabs("Project").Groups("Design").Items("Functions").Visible=false