工作中很多情况自己编写了一个Excel表格，但是里边的数据想实现实时的保护，以免忘记保护。给同事们传送着看，被他们进行修改。这个时候我们就需要进行数据保护，现在马上开讲。
首先我们打开一个空白的工作表
选定要保护的工作表,Ctrl+A全选所有单元格
Ctrl+1打开单元格格式对话框
保护→去掉"锁定"前面的对钩
审阅选项卡→保护工作表
在密码框中两个输入密码123456→确定
Alt+F11打开VBE窗口,在左上的工程窗口双击要保护的工作表,把下面的代码粘贴进去就OK了
代码：
- Option Explicit
- Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Password:="123456"
- If Target <> "" Then
- Target.Locked = 1ActiveSheet.Protect Password:="123456"
- End If
- End Sub
测试，你在工作表里输入100没事，你把100改成200，就不行，弹出了提示对话框
