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