隐藏或混淆重要数据
If e.Col.Name =
"列名" Then
'请改为实际列名
If User.name <> "张经理"
AndAlso UserName <> "王总监"
Then
'如果不是指定用户
e.Text = "****"
'则修改显示内容
End
If
End
If
上面代码对用户名做出了权限设置,能否对用户组作出限制?直接改User.name为User.Group,例如:
If e.Col.Name = "列名" Then '请改为实际列名
If User.Group <> "A组" AndAlso UserGroup <> "B组" Then '如果不是指定用户
e.Text = "****" '则修改显示内容
End If
End If
显示出错,这要怎么写代码?