excel 锁定单元格-excel vba应用:对已使用过的单元格进行保护

先启用宏。

取消工作表所有单元格的保护锁定。（钩去掉）

把下列代码复制到thisworkbook 内。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target <> "" Then

ActiveSheet.Unprotect Password:="123"

Target.Locked = True

ActiveSheet.Protect Password:="123"

End If

ActiveWorkbook.Save

End Sub

在工作表中单元格中输入内容换格后，刚才输入的内容已被保护，修改需先取消工作表保护。