EX来自L的输入单元格内容后立刻锁定的VBA代码

word

Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume NextSheet9.Unprotect Password:=123If Target.Value ThenTarget.Locked = TrueSheet9.Protect Password:=123End IfEnd Sub

把上面代码写到要进行输入保护的sheet表里面，保存，就可以了，Sheet9这个要做相内应修改的，而后只要容输入内容，自动保护，没有输入内容的地方，不保护，如修改，先撤销密码，密码为123追问 : 这个代码，跟我之前的代码一样的效果，锁定后无法插入批注，筛选等