If e.Row("负责人") <> User.Name and User.Name <> "经理" Then e.Cancel = TrueEnd If
但是一般经理应该属于用户组 所以应该
If e.Row("负责人") <> User.Name and User.Group <> "经理" Then
e.Cancel = True
End If
if user.Group = "经理" then
Tables("公司").Filter=""
else
Tables("公司").Filter="负责人='" & User.name & "'"
end if