我需要一份让不同用户处理不同的列的表,但是看说明不知道怎么弄,请大神指教
让不同用户处理不同的列
前面我们已经学会了如何设置代码,使得某些列只能被特定的用户编辑。
有的时候,可能希望某些列只能被特定的用户查看和编辑,而其他用户连查看都是不允许的。
假定一个表,要求:
1、张三和李四不能看到第一列、第二列和第三列。
2、王五和赵六不能看到第四列、第五列和第六列。
3、只有张经理编辑才能看到第十列。
为此可以在项目的AfterOpenProject事件中设置代码:
Select
Case User.Name
Case
"张三","李四"
Tables("订单").Cols.Remove("第一列")
Tables("订单").Cols.Remove("第二列")
Tables("订单").Cols.Remove("第三列")
Case
"王五", "赵六"
Tables("订单").Cols.Remove("第四列")
Tables("订单").Cols.Remove("第五列")
Tables("订单").Cols.Remove("第六列")
End
Select
If User.Name
<> "张经理"
Then
Tables("订单").Cols.Remove("第十列")
End
If