Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe header en footer te beschermen in Excel?

In Excel kunnen we de cellen snel en eenvoudig beschermen, maar heb je ooit geprobeerd de kop- en voettekst te beschermen om te voorkomen dat anderen deze aanpassen? Normaal gesproken is er geen directe manier om deze taak op te lossen in een werkblad, maar de volgende VBA-code kan u een plezier doen.

Bescherm header en footer met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Leesindeling (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik ...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde ... Voorkom dubbele cellen; Bereiken vergelijken ...
  • Selecteer Dubbele of Unieke rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkmappen; Willekeurig selecteren ...
  • Kopieer exact meerdere cellen zonder de formuleverwijzing te wijzigen; Automatisch verwijzingen maken naar meerdere bladen; Kogels invoegen, selectievakjes en meer ...
  • Favoriete en snel formules, reeksen, grafieken en afbeeldingen invoegen; Versleutel cellen met wachtwoord; Maak een mailinglijst en verzend e-mails ...
  • Tekst extraheren, tekst toevoegen, verwijderen op positie, spatie verwijderen; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen ...
  • Super Filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd Sorteren op maand / week / dag, frequentie en meer; Speciaal filter op vet, cursief ...
  • Werkboeken en werkbladen combineren; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Convert xls, xlsx en PDF ...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.

Afbeelding of tekstwatermerk in werkblad invoegen:

Doordat uw bureau Kutools for Excel's Plaats watermerk hulpprogramma kunt u snel de achtergrond of tekst van de achtergrondafbeelding in het actieve werkblad invoegen en de achtergrond kan zo goed als u wilt worden afgedrukt. Download en gratis proef Kutools voor Excel nu!

doc protect header footer 3


pijl blauwe rechterbel Bescherm header en footer met VBA-code

Koptekst en voettekst zijn handig voor ons bij het afdrukken van een werkblad, om te voorkomen dat ze door anderen worden gewijzigd, gelieve te doen met de volgende stappen:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Dubbelklik vervolgens ThisWorkbook onder de VBAProject sectie om een ​​lege module te openen en kopieer en plak vervolgens de volgende code in de module:

VBA-code: kop- en voettekst beschermen

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 20161027
    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 protect header footer 1

Notes: U kunt de inhoud van de kop- of voetregel invoegen op de overeenkomstige locatie in de bovenstaande code.

3. En sla deze code vervolgens op en sluit deze, terwijl u klikt Bespaar om deze werkmap op te slaan, zal de gewijzigde kop- of voettekst automatisch terugkeren naar de originele als u geprobeerd hebt de kop- of voettekst te wijzigen, zie screenshot:

doc protect header footer 2


  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905
  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    rebeca · 6 months ago
    notas: Puede insertar el contenido del encabezado o pie de página en la ubicación correspondiente en el código anterior.
    No entiendo ese paso , por favor si pueden explicarme, lo agradecería.
  • To post as a guest, your comment is unpublished.
    Aaron · 7 months ago
    Hi used this with auto sheet name, file location, and page number and when saving it requires you to click in each field to print correctly.
  • To post as a guest, your comment is unpublished.
    Spencer · 2 years ago
    Hi,

    Love the code to protect the header and footer, is there a way to change the font size, style, and color in the code so it is always replaced with a larger font?