主题：[求助]急！求高手指点代码修改！

让不同用户编辑不同的列

1、禁止张三和李四编辑第一列、第二列和第三列。
2、禁止王五和赵六编辑第四列、第五列和第六列。

Select Case User.Name
    Case "张三","李四"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列" 
                e.Cancel = True
        End Select
    Case "王五", "赵六"
        Select Case e.Col.Name
            Case "第四列","第五列","第六列" 
                e.Cancel = True
        End Select
End Select

<!--EndFragment-->

 

现在需要实现如下功能：

1、只允许 张三和李四编辑第一列、第二列和第三列。
2、只允许 王五和赵六编辑第四列、第五列和第六列。

 

该如何实现呢？

 

谢谢！！！

 

我改了下 ，似乎如下代码可以 。

现在需要实现如下功能：

1、只允许 张三和李四编辑第一列、第二列和第三列。
2、只允许 王五和赵六编辑第四列、第五列和第六列。

Select Case User.Name
    Case <> "张三","李四"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列" 
                e.Cancel = True
        End Select
    Case <> "王五", "赵六"
        Select Case e.Col.Name
            Case "第四列","第五列","第六列" 
                e.Cancel = True
        End Select
End Select

<!--EndFragment--><!--EndFragment-->

不行的 。 条件是 只允许 。如还有 其它用户 ，他们还没限制的编辑的呢。。

因为有很多表格 ，很多用户 ，要针对不同用户 进行不同的 授权 ，限制 等等。。。。

Select Case User.Name
    Case <> "张三","李四"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列" 
                e.Cancel = True
        End Select
    Case <> "王五", "赵六"
        Select Case e.Col.Name
            Case "第四列","第五列","第六列" 
                e.Cancel = True
        End Select
End Select

Select Case User.Name
    Case <> "张三","李四"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列" 
                e.Cancel = True
        End Select
    Case <> "王五", "赵六"
        Select Case e.Col.Name
            Case "第四列","第五列","第六列" 
                e.Cancel = True
        End Select
End Select

 

这样代码 没有错误的吧？？

因为还有很多其它列 。 还有其它很多用户的 。其它列 是大家都可以编辑的 。 所以 不能一开始就 限制全部不能编辑吧 。

 

我改了 下 ，如下代码 。帮忙看看是否可以。。。

Select Case User.Name
   Case <> "张三","李四"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列" 
                e.Cancel = True
        End Select
    Case <> "王五", "赵六"
        Select Case e.Col.Name
            Case "第四列","第五列","第六列" 
                e.Cancel = True
        End Select
End Select

情况这样的，有很多用户（约50），有二十个是可以看到的。而这个表 只能 几个人有权填写前几列。 然后 一个人 审核 ，一个人审批。。

 

这样改如何找

比较简单的 授权方式。