主题：设置权限

开发者：拥有一切的权限，密码：111222

管理者：只可以查看，可以编辑所有分队的信息

一般用户：只能查看，不能编辑

   一分队队长：

   二分队队长：

   三分队队长：

   四分队队长：

   五分队队长：

   六分队队长：

   七分队队长：

以上分队长只能编辑查看本分队成员的信息，其它分队的不行，而且已经编辑过的信息保存过之后，将不能被编辑。

Case "管理员"

        Tables("考勤数据表").Filter = ""

        For Each c As Col In Tables("考勤数据表").Cols

            c.AllowEdit = False

        Next

        Tables("考勤数据表").Cols("部门").AllowEdit = True

我想问一下，管理员所有信息都可以编辑，怎么修改代码啊？