VBA限制工作簿保存

限制工作簿保存

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

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

上代码:

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

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

禁止效果

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

分享到:

11 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 郑州白癜风

    东西不一定是新的就是好的,个人还是感觉是用的自己最习惯的就好,像我就是和博主一样,用的是一个版本。

  2. 阿拉豆丁

    这个不错诶! !

    1. Kael.Z

      哈哈,你还在使用2.4版本~

  3. 碎语人生

    过来学些啦。

    1. Kael.Z

      感谢支持!我惦记的你花了,好好种~

  4. steven

    过来看看!

  5. 科普巴士

    怎么没有换上2.5主题呀你?

    1. Kael.Z

      2.5有不兼容啊,换上去几小时拿下了,太多东西要修改!悲剧死了

      1. 科普巴士

        现在看来你修改的非常完美哦~

        1. Kael.Z

          恩,差不多2天时间,去掉一些不需要的,加上自己的!折腾主题真的太累人了~

          Notify
        2. Kael.Z

          你的站点最近老打不开~巴士

          Notify