VBA限制工作簿打印

限制工作簿打印

两天端午放假,居然休息成感冒了,难受啊!鼻涕一把一把的!今天还是分享下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

      开电扇吹多了~~~哎