主题：逻辑列取消需要输入密码问题

DataColChanging事件

If e.DataCol.name = "第六列"  Then
    If e.NewValue = False Then
        Dim pwd As String
        InputPassWord(pwd,"提示","请输入密码:")
        If pwd <> "123" Then
            msgbox("密码错误,不能修改")
            e.cancel = true
        end if
    End If
End If