Note: The other languages of the website are Google-translated. Back to English

Як захистити верхній і нижній колонтитули в 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

doc захистити верхній колонтитул 1

примітки: Ви можете вставити вміст колонтитула у відповідне місце в наведеному вище коді.

3. А потім збережіть і закрийте цей код зараз, одночасно клацнувши зберегти , щоб зберегти цю книгу, змінений вміст верхнього або нижнього колонтитула автоматично повернеться до початкового, якщо ви спробували змінити верхній або нижній колонтитул, див. знімок екрана:

doc захистити верхній колонтитул 2


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (6)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт, подобається код для захисту верхнього та нижнього колонтитулів, чи є спосіб змінити розмір шрифту, стиль і колір у коді, щоб він завжди замінювався більшим шрифтом?
Цей коментар був мінімізований модератором на сайті
Привіт використовував це з автоматичною назвою аркуша, розташуванням файлу та номером сторінки, і під час збереження потрібно клацати в кожному полі для правильного друку.
Цей коментар був мінімізований модератором на сайті
notas: Puede insertar el contenido del encabezado o pie de página en la ubicaciónrespondiente en el código anterior.
No entiendo ese paso , por favor si pueden explicarme, lo agradecería.
Цей коментар був мінімізований модератором на сайті
Після завершення роботи та повторного відкриття файлу Excel верхній/нижній колонтитул все ще можна видалити. Тож як це виправити? 
Спасибі вам велике!
Цей коментар був мінімізований модератором на сайті
Привіт, Трейсі! Коли ви закриєте книгу, ви повинні зберегти її як Книга Excel з підтримкою макросів формат, це збереже код. Повторне відкриття цього файлу наступного разу, будь ласка, клацніть Увімкнути вміст кнопку у верхній частині рядка формул, щоб активувати код. Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Posso inserir uma imagem no cabeçalho?

Porque o meu cabeçalho é o logotipo da empresa.

Дякую!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця