主题：[求助]指定某列删除数据需要输入密码

StartEdit事件

If e.Col.Name = "第一列" AndAlso e.Row.IsNull("第一列") = False Then
    Dim pwd As String
    e.cancel = True
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd = "123" Then
            e.cancel = False
        End If
    End If
End If

这里我也顺便请教一下老师：上面这段代码中指定的列的数据不可修改删除，如修改或删除必须要密码，但是如果把指定这个单元的一行全部删除，则就不需要密码，所以我认为删除行时 ，也需要输入密码，还请老师写个代码，谢谢！

汗

Dim pwd As String
    e.cancel = True
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd = "123" Then
            e.cancel = False
        End If
    End If