如何防止用户打印工作表？

网友投稿 200 2024-01-08

如何防止用户打印工作表？

在我们的日常工作中，工作表中可能包含一些重要信息，为了保护内部数据的扩展，部门将不允许我们打印它们。在这里，我将讨论如何防止用户打印工作表。

防止用户使用VBA打印一张指定的工作表

防止用户使用VBA打印整个工作簿

防止用户使用VBA打印一张指定的工作表

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

您可以应用以下VBA代码来保护要打印的特定工作表。

1。激活您要禁用其打印功能的工作表。

2。按住 ALT + F11 键打开 Microsoft Visual Basic for Applications窗口.

3。然后在左边 项目浏览器，双击 的ThisWorkbook 打开模块，然后将以下代码粘贴到其中：

VBA代码：防止用户打印一张指定的工作表

Private Sub Workbook_BeforePrint(Cancel As Boolean) Update 20140625 Dim WsName As String WsName = "Sheet1" For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets If xWs.Name = WsName Then MsgBox ("You can not print this worksheet") Cancel = True End If Next End Sub

Copy

请注意： 在上面的代码中， Sheet1 是活动工作表，不允许您打印。

4。然后保存并关闭此代码，现在当您尝试打印此特定工作表时，将收到以下警告。

备注：使用此代码，不允许仅打印特定的工作表，但可以照常打印其他工作表。

防止用户使用VBA打印整个工作簿

如果您需要防止用户打印整个工作簿，那么这里也有一条代码可以对您有所帮助。

1。打开您的工作簿，您不允许其他人打印。

2。按住 ALT + F11 键打开 Microsoft Visual Basic for Applications窗口。

3。然后在左边 项目浏览器，双击 的ThisWorkbook 打开模块，然后将以下代码粘贴到其中：

VBA代码：防止用户打印一张指定的工作表

Private Sub Workbook_BeforePrint(Cancel As Boolean) Update 20140626 Cancel = True MsgBox "You cant print this workbook" End Sub

Copy

4。然后保存并关闭此代码，并返回到工作簿，现在当您打印一个工作表或整个工作簿时，将不允许打印它们，并且会收到以下警告：

相关文章：

如何在Excel中打印多个工作簿？

如何在Excel中打印范围？

如何在Excel中快速打印当前页面？

如何在Excel中的一页上打印长列？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。