主题：[原创]列授权问题

是这样对整个表都可以，输入密码才可以操作，不错。

但是如果相对某一行呢？？？？？

 前面加一个判断

 If e.Col.Name = "xxx" Then

 '各种代码

 End If

If e.Col.Name = "优惠类别"Then
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd<>"888" Then
            e.Cancel=True
        End If
    End If
End If

搞定，谢谢超级版主！！！！！顶顶顶！