VBA限制工作簿保存

限制工作簿保存

前面几天写了禁止工作簿打印、复制粘贴操作,今天晚上就偶兴写个禁止保存吧。

大家生活中给大家看数据,就怕有些人手痒,会动你的键盘什么的,导致表格数据被篡改,今天分享下只能看工作簿,修改了也不能保存的方法。

上代码:

 
  1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)   
  2. MsgBox "不允许保存修改!", vbCritical + vbOKOnly   
  3. Cancel = True   
  4. End Sub  

来看看效果:点击保存工作簿会出现下述警告框!

禁止效果

就这么简单,大家享用吧。不早了,我该睡觉了。

分享到: