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

让不同用户编辑不同的列

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-->

参考一下帮助的可视化授权做吧 http://www.foxtable.com/help/topics/1600.htm

如果就这样的要求，调换下列名称位置就行了

 

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

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

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

那就参考一下帮助里的可视化授权.请看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

 

那个换个方式

 

e.Cancel = True
Select Case User.Name
    Case "张三","李四"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列"
                e.Cancel = False
        End Select
    Case "王五", "赵六"
        Select Case e.Col.Name
            Case "第四列","第五列","第六列"
                e.Cancel = False
        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

 

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

如果还有用户无需限制的可以这样

 

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