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