Как да защитим горния и долния колонтитул в Excel?
В Excel можем да защитим клетките бързо и лесно, но опитвали ли сте някога да защитите горния и долния колонтитул, за да попречите на другите да ги променят? Обикновено няма директен начин за решаване на тази задача в работен лист, но следният VBA код може да ви направи услуга.
Защитете горния и долния колонтитул с VBA код
Защитете горния и долния колонтитул с VBA код
Горният и долният колонтитул са полезни за нас, когато отпечатваме работен лист, за да предотвратите промяната им от други, моля, изпълнете следните стъпки:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. След това кликнете два пъти Тази работна книга под 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. И след това запазете и затворете този код сега, докато щраквате Save бутон, за да запазите тази работна книга, модифицираното съдържание на горния или долния колонтитул ще се върне автоматично към оригиналните, ако сте се опитали да промените горния или долния колонтитул, вижте екранната снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!