1、加一个标志列,逻辑型,名称为“允许编辑”
2、设置PrePareEdit事件:
if e.Col.Name = “允许编辑” And User.Name <> "管理员" then
e.Cancel = True
end if
if e.Col.Name Andalso e.Row("允许编辑") = False Then
if Date.Today > #指定日期# Then
e.Cancel = true