VBA限制工作簿打印

限制工作簿打印

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

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

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

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

就这么简单。

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

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

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

分享到: