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

2018年11月9日09:16:33 发表评论 1,379
摘要

工作中很多情况自己编写了一个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,就不行,弹出了提示对话框

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: