Question

Excel如何通过vba或函数实现以下功能？

禁止更改第二列输入数据，当有人想更改第二列输入数据时，弹出提示框“禁止自行更改数据，如需输入数据请联系管理员”。

Answer 1

设置数据有效性就可以控制了：点此列上的字母B，选中整列，数据有效性，有效性条件下的允许选“自定义”，在公式框中输入不等号<> 再点"出错警告"，在错误信息下的框内输入你需要弹出的内容，确定即可。

Answer 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
MsgBox "禁止自行更改数据，如需输入数据请联系管理员!"
Application.Undo
End If
Application.EnableEvents = True
End Sub