作者：绿色风
分类：
时间：2022-08-17
浏览：175
楼主
omnw |
Q：如何限制EXCEL打印报表？
A：可以利用Workbook的BeforePrint事件来实现，如果密码输入不正确则取消打印。
- Private Sub Workbook_BeforePrint(Cancel As Boolean)
- Dim pass As String
- pass = InputBox("请输入密码：")
- If pass <> "1111" Then
- MsgBox "密码不正确，不能进行打印！"
- Cancel = True
- End If
- End Sub
|
2楼
yd0209 |
具体如何把这段语句“写入”工作表，我是这样操作的：开发工具→查看代码→THISWORKBOOK--粘贴→F5
然后就出来一堆宏，然后就不知道怎么操作了。 |
3楼
gvntw |
不必按F5运行宏，该代码当用户进行打印或打印预览操作时自动运行。
另：
代码有需要修正之处，“Cancel = False”，应改为=True，当布尔值为 True 时，禁止打印或预览。 |
4楼
yd0209 |
谢谢，又学习了一个新的知识，谢谢二位版主！ |
5楼
yncxxmj |
楼主，是不是每打开一个工作簿都 要复制一次这段宏吗？ |
6楼
omnw |
是的，每个工作簿都要添加此代码。 |
7楼
omnw |
谢谢提醒,已经更正 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一