Як заборонити користувачам друкувати аркуш?
У нашій щоденній роботі на аркуші може бути важлива інформація, щоб захистити розповсюджені внутрішні дані, відділ не дозволить нам їх друкувати. І тут я розповім про те, як завадити користувачам друкувати аркуш.
Заборонити користувачам друкувати один вказаний аркуш за допомогою VBA
Заборонити користувачам друкувати всю книгу за допомогою VBA
Заборонити користувачам друкувати один вказаний аркуш за допомогою VBA
Ви можете застосувати наступний код VBA, щоб захистити свій конкретний аркуш для друку.
1. Активуйте робочий аркуш, який ви хочете відключити.
2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
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
Примітка: У наведеному вище коді Sheet1 це активний аркуш, який заборонено друкувати.
4. Потім збережіть і закрийте цей код, і тепер, коли ви спробуєте роздрукувати цей конкретний аркуш, ви отримаєте таке попередження.
примітки: З цим кодом не можна друкувати лише конкретний аркуш, але інші аркуші можна друкувати як зазвичай.
Заборонити користувачам друкувати всю книгу за допомогою VBA
Якщо вам потрібно заважати користувачам друкувати всю книгу, тут також є код, який може зробити вам послугу.
1. Відкрийте свою книгу, яку ви не дозволяєте друкувати іншим.
2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
3. А потім у лівій Провідник проектів, подвійне клацання ThisWorkbook щоб відкрити модуль і вставте в нього наступний код:
Код 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 для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!