如何设定excel表格数据输入后自动锁定不能修改

如何设定excel表格数据输入后自动锁定不能修改

工作中很多情况自己编写了一个Excel表格，但是里边的数据想实现实时的保护，以免忘记保护。给同事们传送着看，被他们进行修改。这个时候我们就需要进行数据保护，现在马上开讲。

首先我们打开一个空白的工作表

选定要保护的工作表,Ctrl+A全选所有单元格

Ctrl+1打开单元格格式对话框

保护→去掉"锁定"前面的对钩

审阅选项卡→保护工作表

在密码框中两个输入密码123456→确定

Alt+F11打开VBE窗口,在左上的工程窗口双击要保护的工作表,把下面的代码粘贴进去就OK了OptionExplicitPrivateSubWorksheet_Change(ByValTargetAsRange)ActiveSheet.UnprotectPassword:="123456"IfTarget<>""ThenTarget.Locked=1ActiveSheet.ProtectPassword:="123456"EndIfEndSub

测试，你在工作表里输入100没事，你把100改成200，就不行，弹出了提示对话框