以下是引用Bin在2015/6/23 17:42:00的发言：
select case user.group
case "administrator"
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
case "user"
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
end select
我用了 但是没有效果 现在暂时用这段代码改的表权限
If User.Group = "录入" Then
DataTables("版本情况").AllowEdit = True
DataTables("编辑信息采用表").AllowEdit = True
DataTables("URL表").AllowEdit = True
Else
DataTables("版本情况").AllowEdit = False
DataTables("编辑信息采用表").AllowEdit = False
DataTables("URL表").AllowEdit = False
End If
但是我还是想禁用菜单. 上个列子求帮我看一下
顺便我想问一下 用默认的登录窗口 那个下拉列能否把开发者账号隐藏
[此贴子已经被作者于2015/6/24 10:32:41编辑过]
加好友 
发短信
Post By：2015/6/23 17:40:00 [显示全部帖子]
此主题相关图片如下：11.bmp
