第一步：全选所有单位格， 右键-->单元格式->保护->取消锁定
第二步：按ALT+F11，在左方双击下你要保护的那个表的名字， 出来一个VBA编辑窗口，将以下代码放在里面，我假设你设的密码是123，你可以自已改。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
ActiveSheet.Unprotect Password:=123
Target.Locked = True
ActiveSheet.Protect Password:=123, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
第二步：按ALT+F11，在左方双击下你要保护的那个表的名字， 出来一个VBA编辑窗口，将以下代码放在里面，我假设你设的密码是123，你可以自已改。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
ActiveSheet.Unprotect Password:=123
Target.Locked = True
ActiveSheet.Protect Password:=123, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
