Как запретить пользователям печатать лист?

В нашей повседневной работе на листе может быть какая-то важная информация, чтобы защитить внутренние данные, которые не распространяются, отдел не позволит нам их распечатать. И здесь я расскажу о том, как запретить пользователям печатать лист.

Запретить пользователям печатать один указанный рабочий лист с помощью VBA

Запретить пользователям печатать всю книгу с помощью VBA

Запретить пользователям печатать один указанный рабочий лист с помощью VBA

Вы можете применить следующий код VBA для защиты вашего конкретного рабочего листа, который будет напечатан.

1. Активируйте свой рабочий лист, для которого вы хотите отключить функцию печати.

2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

3. А потом слева Обозреватель проекта, двойной щелчок Эта рабочая тетрадь чтобы открыть модуль, и вставьте в него следующий код:

Код 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

Примечание: В приведенном выше коде Sheet1 это активный рабочий лист, который вы не можете распечатать.

4. Затем сохраните и закройте этот код, и теперь, когда вы попытаетесь распечатать этот конкретный рабочий лист, вы получите следующее предупреждение.

Внимание: С этим кодом не разрешается печатать единственный конкретный рабочий лист, но другие листы можно печатать как обычно.

Запретить пользователям печатать всю книгу с помощью VBA

Если вам нужно запретить пользователям распечатывать всю книгу, здесь также есть код, который может оказать вам услугу.

1. Откройте книгу, которую вы не разрешаете распечатывать другим пользователям.

2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

3. А потом слева Обозреватель проекта, двойной щелчок Эта рабочая тетрадь чтобы открыть модуль, и вставьте в него следующий код:

Код VBA: запретить пользователям печатать один указанный рабочий лист

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

4. Затем сохраните и закройте этот код и вернитесь к книге, и теперь, когда вы распечатываете один рабочий лист или всю книгу, их нельзя будет распечатать, и вы получите следующее предупреждение:

Статьи по теме:

Как распечатать несколько книг в Excel?

Как распечатать диапазоны в Excel?

Как быстро распечатать текущую страницу в Excel?

Как распечатать длинную колонку на одной странице в Excel?