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

此主题相关图片如下：qq截图20170117110136.png

各位老师，为防止误操作将原来选中的点击取消选中。我想，这几个逻辑列在选中时不需要输入密码，如果想取消选中则必须输入密码111，代码怎么写。请各位老师帮忙。

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