e.cancel = True
Select Case e.Col.Name
Case "进度","完成情况","工作内容"
If e.Row("责任人") Like "*" & _Username & "*" And e.Row("工作") = "个人工作总结" Then
e.Cancel = False
End If
End Select
Select Case e.Col.Name
Case "责任人","完成时间","工作内容"
If Functions.execute("Shouquan", "周工作", "审核") And (e.Row("工作") = "部门例会布置工作" Or e.Row("工作") = "公司例会布置工作") Then
e.Cancel = False
End If
If e.Row("工作") = "个人工作总结" Then
e.Cancel = False
End If
End Select