VBA限制工作簿打印

• VBA • 9 条评论 • •7,036 次查阅

限制工作簿打印

两天端午放假，居然休息成感冒了，难受啊！鼻涕一把一把的！今天还是分享下VBA吧。

在实际生活中，我们要向别人展示一些数据，但只希望对方看Excel表格就够了，可有的人为了方便自己会选择打印整张表格带走！

为了数据安全起见，教大家一个限制EXCEL工作簿打印的代码：

 
  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)   
  2. MsgBox "此乃保密数据，不允许打印！", vbCritical + vbOKOnly   
  3. Cancel = True   
  4. End Sub  

就这么简单。

当用户选择菜单的“打印”按钮，会得到提示框“此乃保密数据，不允许打印！”，禁止打印！

代码短小，却很实用！如果你也想有些数据不被他人打印，不妨加上此代码！

休息去了，感冒不好受啊~希望明天感冒消失，阿门~~~~~

分享到：

9 条评论

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

昵称▼
  1. 郑州白癜风

    简单的尝试，意外的收获。

  2. clairelume

    很实用，受教！

    1. Kael.Z

      呵呵，感谢支持

  3. 七七

    不错，确实简单！

    1. Kael.Z

      简单实用才是王道~

  4. 上善若水

    怎样让excel中的数据保密，不能被复制和粘贴呢？

    1. Kael.Z

      如你所愿，参考这篇为你所写！http://blog.zyj.pw/restrictions-excel-copy-and-paste-operation-table.html

  5. 混小子

    多锻炼 增强哈体制

    1. Kael.Z

      开电扇吹多了~~~哎