主题：权限问题？

msgbox(_UserName)

msgbox(_UserGroup)

看看哪个是你需要的值，替换红色代码

Select Case e.Link.Name
    Case "项目计划表"       
        If User.Name = "经理" Then
            Forms("项目计划表").Open()
            MainTable=Tables("项目计划表")           
        Else           
            msgbox("没有权限")           
        End If
End Select