Jak chronić nagłówek i stopkę w programie Excel?
W programie Excel możemy szybko i łatwo chronić komórki, ale czy kiedykolwiek próbowałeś chronić nagłówek i stopkę, aby uniemożliwić innym modyfikowanie ich? Zwykle nie ma bezpośredniego sposobu rozwiązania tego zadania w arkuszu, ale następujący kod VBA może wyświadczyć ci przysługę.
Chroń nagłówek i stopkę za pomocą kodu VBA
Chroń nagłówek i stopkę za pomocą kodu VBA
Nagłówek i stopka są przydatne dla nas podczas drukowania arkusza roboczego, aby zapobiec ich zmianie przez innych, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Następnie kliknij dwukrotnie Ten zeszyt pod Projekt VBA , aby otworzyć pusty moduł, a następnie skopiuj i wklej następujący kod do modułu:
Kod VBA: chroń nagłówek i stopkę
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
Note: Możesz wstawić zawartość nagłówka lub stopki w odpowiednie miejsce w powyższym kodzie.
3. A następnie zapisz i zamknij ten kod, teraz, klikając Zapisz przycisk, aby zapisać ten skoroszyt, zmodyfikowana zawartość nagłówka lub stopki zostanie automatycznie przywrócona do oryginalnych, jeśli spróbujesz zmienić nagłówek lub stopkę, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!