Hvordan beskyttes sidehoved og sidefod i Excel?
I Excel kan vi hurtigt og nemt beskytte cellerne, men har du nogensinde prøvet at beskytte sidehovedet og sidefoden for at forhindre andre i at ændre dem? Normalt er der ingen direkte måde at løse denne opgave på i regnearket, men følgende VBA-kode kan gøre dig en tjeneste.
Beskyt sidehoved og sidefod med VBA-kode
Beskyt sidehoved og sidefod med VBA-kode
Sidehoved og sidefod er nyttige for os, når vi udskriver regneark. For at forhindre, at de ændres af andre, skal du gøre følgende:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Dobbeltklik derefter ThisWorkbook under VBAProjekt sektion for at åbne et tomt modul og derefter kopiere og indsætte følgende kode i modulet:
VBA-kode: Beskyt sidehoved og sidefod
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
Bemærk: Du kan indsætte sidehoved eller sidefodsindhold på den tilsvarende placering i ovenstående kode.
3. Og gem og luk denne kode nu, mens du klikker Gem knap for at gemme denne projektmappe, vil det ændrede sidehoved eller sidefodsindhold automatisk vende tilbage til de originale, hvis du har forsøgt at ændre sidehoved eller sidefod, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!