我根据帮助文件,在
系统菜单_LoadUserSetting事件中加上了如下代码,希望隐藏
数据表、管理项目、打印输出功能选项卡工具,并禁用
日常工作_窗口功能组和
杂项_工具、杂项_执行功能组。其中,
红色代码是我加的。用“张海滨”登录后,
所有代码都没用执行,而且在编写代码时,菜单设计器的帮助窗口中,也没有对f应的菜单名称提示。请教:这是Foxtable试用版禁用这个功能呢还是我的代码写法有错?
If User.Name = "张海滨" Then
RibbonTabs("Table").Visible = False
RibbonTabs("Project").Visible = False
RibbonTabs("Print").Visible = False
RibbonTabs("Statistic").Groups("wind").Visible = False
RibbonTabs("Other").Groups("Tools").Enabled = 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("Print").Visible = True
RibbonTabs("Statistic").Visible = True
RibbonTabs("Statistic").Groups("Wind").Visible = True
RibbonTabs("Other").Groups("Tools").Enabled = True
RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If