Как запретить пользователям печатать лист?
В нашей повседневной работе на листе может быть какая-то важная информация, чтобы защитить внутренние данные, которые не распространяются, отдел не позволит нам их распечатать. И здесь я расскажу о том, как запретить пользователям печатать лист.
Запретить пользователям печатать один указанный рабочий лист с помощью 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?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
