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

大师：

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

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里面的