startEdit事件
If e.Col.Name = "失效日期" Then
If e.row("类型") = "无限期" Then
msgbox("不要输入日期")
e.cancel = true
End If