VBA限制工作簿保存

• VBA • 11 条评论 • •8,276 次查阅

限制工作簿保存

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

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

上代码：

 
  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