让Excel电子表格拒绝打印

YZLSZAJ · 发表于 2010-8-3 04:31

现在的办公越来越倾向于无纸化办公了，Excel2007的应用也变得比较频繁了。但是在Excel2007的操作过程中我们可能会不小心碰到了打印按钮或者一些人不太注重节约，比较随意打印Excel2007文件，甚至是直接禁止一般人打印Excel2007文件。在不影响Excel2007文件的编辑保存等成长操作情况下我们该如何拒绝文件打印呢?
　　其实这是比较简单的，只需要利用一段宏指令即可解决，具体操作如下：
　　按下Alt+F11打开VBA编辑器，如果VBA Project窗格没有显示的话就按下组合键Ctrl+R将其调出;右键单击“This Workbook”，选择“查看代码”，然后再代码窗口内输入：
　　Private Sub
　　Workbook_BeforePrint(Cancel As Boolean)
　　Cancel = True
　　MsgBox “节约用纸拒绝打印”, vbInformation
　　End Sub
　　然后我们按下组合键Alt+F11返回Excel2007。这样以后不管你是直接点击打印按钮，还是从“Office按钮”中选择“打印”，或者是使用快捷键Ctrl+P，都不能直接打印，只会显示你在宏指令中输入的提示语“节约用纸拒绝打印”。这也让大家知道不能打印的原因是有意为之，而不是硬件或软件有什么问题。

榴莲的味道 · 发表于 2010-8-3 07:10

恩，我认为最好也留一个打印的出口，可以设置权限，密码

yangrongguan · 发表于 2010-8-3 07:56

截屏图片打印呢如何避免

agui7219 · 发表于 2010-8-3 08:12

复制到另一个工作簿打印呢？治标的效果都达不到的。。。主要是灌输节俭的精神吧

zjdh · 发表于 2010-8-3 08:26

那就作点修改:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
A = InputBox("请输入密码:")
If A <> "123" Then
Cancel = True
MsgBox "节约用纸拒绝打印", vbInformation
End If
End Sub

juanve · 发表于 2010-8-3 08:42

为什么我不能用

zhangjimfu · 发表于 2010-8-3 08:54

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

海婷 · 发表于 2010-8-3 08:56

Excel2003能用吗?

chenzicheng · 发表于 2010-8-3 09:18

03 是一样能用的

感谢楼主。实际应用中可加一些判断条件针对一些表格填写项目不全则禁止打印

zjdh · 发表于 2010-8-8 08:40

可以啊！
但是VBA中没有“预览”事件，只能用其他事件触发，浏览命令有3处出现，
就禁用这3个命令，若要对某个工作表起作用就将以下代码放在该工作表代码窗中：
Private Sub Worksheet_Activate()
Application.CommandBars(3).Controls("打印预览(&V)").Enabled = False
Application.CommandBars(1).Controls("文件(&F)").Controls("打印预览(&V)").Enabled = False
Application.CommandBars(1).Controls("文件(&F)").Controls("页面设置(&U)...").Enabled = False
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars(3).Controls("打印预览(&V)").Enabled = True
Application.CommandBars(1).Controls("文件(&F)").Controls("打印预览(&V)").Enabled = True
Application.CommandBars(1).Controls("文件(&F)").Controls("页面设置(&U)...").Enabled = True
End Sub

若想全工作簿都禁止，则将以下代码放在，ThisWorkbook代码窗中：
Private Sub Workbook_Activate()
Application.CommandBars(3).Controls("打印预览(&V)").Enabled = False
Application.CommandBars(1).Controls("文件(&F)").Controls("打印预览(&V)").Enabled = False
Application.CommandBars(1).Controls("文件(&F)").Controls("页面设置(&U)...").Enabled = False
End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars(3).Controls("打印预览(&V)").Enabled = True
Application.CommandBars(1).Controls("文件(&F)").Controls("打印预览(&V)").Enabled = True
Application.CommandBars(1).Controls("文件(&F)").Controls("页面设置(&U)...").Enabled = True
End Sub

		自动登录	找回密码
密码			免费注册

[转帖] 让Excel电子表格拒绝打印

回复 2楼 dcb11111 的帖子

回复 1楼 YZLSZAJ 的帖子