主题：[求助]项目AfterOpenProject事件

项目

事件

Select Case User.Group
   
    Case "录入组"
        Tables("本地服务热线客服预处理过程记录表").AllowEdit = False
        Tables("集客故障原因分类").AllowEdit = False
        Tables("下拉表").AllowEdit = False
        Tables("本地热线下拉表").AllowEdit = False
        Tables("系统登陆日志表").AllowEdit = False
        Tables("系统数据操作日志表").AllowEdit = False
        Tables("管控工资条").AllowEdit = False
        Tables("家集客告警记录表").AllowEdit = False
        Tables("集客故障记录表").AllowEdit = False
       
    Case "外呼组"
        Tables("本地服务热线客服预处理过程记录表").AllowEdit = False
        Tables("集客故障原因分类").AllowEdit = False
        Tables("下拉表").AllowEdit = False
        Tables("本地热线下拉表").AllowEdit = False
        Tables("系统登陆日志表").AllowEdit = False
        Tables("系统数据操作日志表").AllowEdit = False
        Tables("管控工资条").AllowEdit = False
        Tables("家集客告警记录表").AllowEdit = False
        Tables("集客故障记录表").AllowEdit = False
       
    Case "热线组"
        Tables("集客故障原因分类").AllowEdit = False
        Tables("下拉表").AllowEdit = False
        Tables("本地热线下拉表").AllowEdit = False
        Tables("系统登陆日志表").AllowEdit = False
        Tables("系统数据操作日志表").AllowEdit = False
        Tables("管控工资条").AllowEdit = False
        Tables("家集客告警记录表").AllowEdit = False
        Tables("集客故障记录表").AllowEdit = False
        Tables("商机单跟进表").AllowEdit = True
        Tables("外呼跟进表").AllowEdit = False
       
    Case "管理组"
        Tables("集客故障原因分类").Visible = False
        Tables("下拉表").Visible = False
        Tables("本地热线下拉表").Visible = False
        Tables("系统登陆日志表").Visible = False
        Tables("系统数据操作日志表").Visible = False   '不允许查看
        Tables("管控工资条").Visible = False
        Tables("本地服务热线客服预处理过程记录表").AllowEdit = False  '不允许编辑
        Tables("外呼跟进表").AllowEdit = False
        Tables("商机单跟进表").AllowEdit = False
        Tables("集客故障记录表").AllowEdit = False
        Tables("家集客告警记录表").AllowEdit = False
        Tables("管控工资条").Visible = False
       
    Case "集客组"
        Tables("本地服务热线客服预处理过程记录表").AllowEdit = False
        Tables("集客故障原因分类").AllowEdit = False
        Tables("下拉表").AllowEdit = False
        Tables("本地热线下拉表").AllowEdit = False
        Tables("系统登陆日志表").AllowEdit = False
        Tables("系统数据操作日志表").AllowEdit = False
        Tables("管控工资条").AllowEdit = False
        Tables("商机单跟进表").AllowEdit = False
        Tables("外呼跟进表").AllowEdit = False
       
    Case "综合组"
        Tables("本地服务热线客服预处理过程记录表").AllowEdit = False
        Tables("集客故障原因分类").AllowEdit = False
        Tables("下拉表").AllowEdit = False
        Tables("本地热线下拉表").AllowEdit = False
        Tables("系统登陆日志表").AllowEdit = False
        Tables("系统数据操作日志表").AllowEdit = False
        Tables("管控工资条").AllowEdit = False
        Tables("家集客告警记录表").AllowEdit = False
        Tables("集客故障记录表").AllowEdit = False
        Tables("商机单跟进表").AllowEdit = False
        Tables("外呼跟进表").AllowEdit = False
       
    Case "录入组","外呼组","热线组","集客组","综合组"
        Tables("本地服务热线客服预处理过程记录表").Visible = False
        Tables("集客故障原因分类").Visible = False
        'Tables("下拉表").Visible = False
        Tables("本地热线下拉表").Visible = False
        Tables("系统登陆日志表").Visible = False
        Tables("系统数据操作日志表").Visible = False
        Tables("管控工资条").Visible = False
        Tables("家集客告警记录表").Visible = False
        Tables("商机单跟进表").Visible = False
        Tables("外呼跟进表").Visible = False
        Tables("集客故障记录表").Visible = False
       
End Select
这样写，所有人都可以看到所有表，但是AllowEdit属性有效，

Select Case User.Group

Case "录入组","外呼组","热线组","集客组","综合组"
Tables("本地服务热线客服预处理过程记录表").Visible = False
Tables("集客故障原因分类").Visible = False
'Tables("下拉表").Visible = False
Tables("本地热线下拉表").Visible = False
Tables("系统登陆日志表").Visible = False
Tables("系统数据操作日志表").Visible = False
Tables("管控工资条").Visible = False
Tables("家集客告警记录表").Visible = False
Tables("商机单跟进表").Visible = False
Tables("外呼跟进表").Visible = False
Tables("集客故障记录表").Visible = False

Case "录入组"
Tables("本地服务热线客服预处理过程记录表").AllowEdit = False
Tables("集客故障原因分类").AllowEdit = False
Tables("下拉表").AllowEdit = False
Tables("本地热线下拉表").AllowEdit = False
Tables("系统登陆日志表").AllowEdit = False
Tables("系统数据操作日志表").AllowEdit = False
Tables("管控工资条").AllowEdit = False
Tables("家集客告警记录表").AllowEdit = False
Tables("集客故障记录表").AllowEdit = False

Case "外呼组"
Tables("本地服务热线客服预处理过程记录表").AllowEdit = False
Tables("集客故障原因分类").AllowEdit = False
Tables("下拉表").AllowEdit = False
Tables("本地热线下拉表").AllowEdit = False
Tables("系统登陆日志表").AllowEdit = False
Tables("系统数据操作日志表").AllowEdit = False
Tables("管控工资条").AllowEdit = False
Tables("家集客告警记录表").AllowEdit = False
Tables("集客故障记录表").AllowEdit = False

Case "热线组"
Tables("集客故障原因分类").AllowEdit = False
Tables("下拉表").AllowEdit = False
Tables("本地热线下拉表").AllowEdit = False
Tables("系统登陆日志表").AllowEdit = False
Tables("系统数据操作日志表").AllowEdit = False
Tables("管控工资条").AllowEdit = False
Tables("家集客告警记录表").AllowEdit = False
Tables("集客故障记录表").AllowEdit = False
Tables("商机单跟进表").AllowEdit = True
Tables("外呼跟进表").AllowEdit = False

Case "管理组"
Tables("集客故障原因分类").Visible = False
Tables("下拉表").Visible = False
Tables("本地热线下拉表").Visible = False
Tables("系统登陆日志表").Visible = False
Tables("系统数据操作日志表").Visible = False '不允许查看
Tables("管控工资条").Visible = False
Tables("本地服务热线客服预处理过程记录表").AllowEdit = False '不允许编辑
Tables("外呼跟进表").AllowEdit = False
Tables("商机单跟进表").AllowEdit = False
Tables("集客故障记录表").AllowEdit = False
Tables("家集客告警记录表").AllowEdit = False
Tables("管控工资条").Visible = False

Case "集客组"
Tables("本地服务热线客服预处理过程记录表").AllowEdit = False
Tables("集客故障原因分类").AllowEdit = False
Tables("下拉表").AllowEdit = False
Tables("本地热线下拉表").AllowEdit = False
Tables("系统登陆日志表").AllowEdit = False
Tables("系统数据操作日志表").AllowEdit = False
Tables("管控工资条").AllowEdit = False
Tables("商机单跟进表").AllowEdit = False
Tables("外呼跟进表").AllowEdit = False

Case "综合组"
Tables("本地服务热线客服预处理过程记录表").AllowEdit = False
Tables("集客故障原因分类").AllowEdit = False
Tables("下拉表").AllowEdit = False
Tables("本地热线下拉表").AllowEdit = False
Tables("系统登陆日志表").AllowEdit = False
Tables("系统数据操作日志表").AllowEdit = False
Tables("管控工资条").AllowEdit = False
Tables("家集客告警记录表").AllowEdit = False
Tables("集客故障记录表").AllowEdit = False
Tables("商机单跟进表").AllowEdit = False
Tables("外呼跟进表").AllowEdit = False


End Select

这样写，所有人都看不到所有表，我通过另一个按钮把某个表的Visible 设置为 True 把表显示后，这个表竟然是可以编辑的，请大神帮忙修改一下，

我要的是：

1、项目打开时所有人看不到所有表

2、点击某个按钮后可以把某个表显示

3、显示后只对我允许编辑的人开放编辑功能。

你要写两段

Select Case User.Group

    Case "录入组","外呼组","热线组","集客组","综合组"

End Select

Select Case User.Group

    Case "录入组"

    Case "外呼组"

    Case "热线组"

End Select