主题：[求助]单元格权限代码编写问题

大师：

    下面这段代码写的有点长，能不能改的简单一点

If e.Col.Name = "样衣类型" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "业务员" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "样衣次数" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "业务员" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "下单日期" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "业务员" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "交货日期" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "业务员" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "审批" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "IE主管" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "审批人" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "IE主管" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "审批日期" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "IE主管" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "审样板" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "IE主管" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "审板师" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "IE主管" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "审板日期" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "IE主管" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "审样衣" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "IE主管" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "审样师" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "IE主管" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "审样日期" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "IE主管" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If

 

谢谢

这代码是想实现什么功能？

锁定单元格编辑权限，这个是写在表事件的PrepareEdit里面的

按什么规则锁定？

If e.Col.Name = "样衣类型" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "业务员" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "样衣次数" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "业务员" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "下单日期" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "业务员" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
If e.Col.Name = "交货日期" Then '如果修改的是标注列
    If DataTables("用户表").GetComboListString("角色") <> "业务员" Then '且用户不是张经理
        e.Cancel = True '那么禁止编辑?
    End If
End If
比如：这个表有四列只能是业务员才能编辑，其他人不可以编辑，但是写这么长的代码，就是有没有可以简洁一些的写法

这种代码能够判断角色？！！用户表数据是怎么样的，角色怎么定义的，用户登录后使用什么变量保存角色的？