主题：怎么限制某用户不能解除锁定列

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
    Tables("表名").AllowEdit = True
Else
    MessageBox.Show("你是开发者,没权解开表")
    Return
End If

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

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

怎么可能,只要是开发者立马提示,我做好测试上来的.