玖叶教程网

如果希望录入的数据能够被保护，不被删改。可用程序自动将单元格锁定。

首先，选择单元格区域，按 Ctrl+1 ，打开单元格格式对话框，取消单元格的“锁定”。

然后右键点击工作表标签，选择“查看代码”，将代码粘贴在光标处：

1. Private Sub Worksheet_Change(ByVal Target As Range)
2. Dim Rng As Range
3. Me.Unprotect ("123") '撤销工作表保护
5. For Each Rng In Target
6. Rng.Locked = True '锁定单元格
7. Next
9. Me.Protect ("123") '保护工作表
10. End Sub

代码中的"123“是工作表保护密码，可自由修改。这个小技能，你学会了吗