Як захистити верхній і нижній колонтитули в Excel?
В Excel ми можемо швидко і легко захистити клітинки, але чи намагались ви коли-небудь захищати верхній і нижній колонтитули, щоб інші користувачі не змінювали їх? Зазвичай прямого способу вирішення цього завдання на аркуші немає, але наступний код VBA може зробити вам послугу.
Захистіть верхній і нижній колонтитули за допомогою коду VBA
Захистіть верхній і нижній колонтитули за допомогою коду VBA
Верхній та нижній колонтитули корисні для нас під час друку аркуша, щоб запобігти їх зміні іншими, виконайте такі дії:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Потім двічі клацніть ThisWorkbook під VBAProject розділ, щоб відкрити порожній модуль, а потім скопіюйте та вставте наступний код у модуль:
Код VBA: захист верхнього та нижнього колонтитула
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_Open()
Call ProtectHF
End Sub
Private Sub ProtectHF()
'Updateby Extendoffice
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.PageSetup.RightHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.RightFooter = ""
ThisWorkbook.ActiveSheet.PageSetup.CenterFooter = "KTE-Sale-Report"
ThisWorkbook.ActiveSheet.PageSetup.CenterHeader = "Created by Skyyang"
ThisWorkbook.ActiveSheet.PageSetup.LeftHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.LeftFooter = ""
Application.ScreenUpdating = True
End Sub
примітки: Ви можете вставити вміст колонтитула у відповідне місце в наведеному вище коді.
3. А потім збережіть і закрийте цей код зараз, одночасно клацнувши зберегти , щоб зберегти цю книгу, змінений вміст верхнього або нижнього колонтитула автоматично повернеться до початкового, якщо ви спробували змінити верхній або нижній колонтитул, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!