1.如题

2.  怎么添加多用户菜单与权限管理，

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

各位高手帮忙看看，怎么没人回啊，

select Case User.Name

  case "用户1","用户2","用户三"

    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 Select

  是不是这样的意思?

是啊，可是会出错

这个我会了，我用

If User.Name = "开发者" Then

    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True

    Else

    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False

End If

还有一个问题

怎么限制某用户不能解除锁定列 如编号列我锁定了，别的用户不能解锁

If User.Name <> "开发者" Then
    Tables("表名").AllowEdit = True
Else
    MessageBox.Show("你是开发者,没权解开表")
    Return
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

帮了我锁定A表的第一列，只有开发者可以解锁A表第一列

先谢谢了