Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment protéger l'en-tête et le pied de page dans Excel?

Dans Excel, nous pouvons protéger les cellules rapidement et facilement, mais avez-vous déjà essayé de protéger l'en-tête et le pied de page pour empêcher que d'autres ne les modifient? Normalement, il n'existe aucun moyen direct pour résoudre cette tâche dans la feuille de calcul, mais le code VBA suivant peut vous rendre service.

Protège l'en-tête et le pied de page avec le code VBA


Insérer une image ou un filigrane de texte dans la feuille de calcul:

Avec Kutools for Excel's Insérer un filigrane utilitaire, vous pouvez insérer rapidement l'image ou le texte arrière-plan dans la feuille de calcul active, et l'arrière-plan peut être imprimé aussi bien que vous avez besoin. Télécharger et tester gratuitement Kutools for Excel maintenant!

doc protect en-tête d'en-tête 3


flèche bleue droite bulle Protège l'en-tête et le pied de page avec le code VBA

L'en-tête et le pied de page nous sont utiles lors de l'impression d'une feuille de calcul, pour éviter qu'ils ne soient modifiés par d'autres personnes, veuillez suivre les étapes suivantes:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Puis double-cliquez ThisWorkbook sous le VBAProject section pour ouvrir un module vide, puis copiez et collez le code suivant dans le module:

Code VBA: Protège l'en-tête et le pied de page

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 en-tête d'en-tête 1

Note: Vous pouvez insérer le contenu d'en-tête ou de pied de page à l'emplacement correspondant dans le code ci-dessus.

3. Et puis enregistrez et fermez ce code, maintenant, en cliquant Épargnez bouton pour enregistrer ce classeur, le contenu d'en-tête ou de pied de page modifié sera automatiquement retourné aux originaux si vous avez essayé de changer l'en-tête ou le pied de page, voir capture d'écran:

doc protect en-tête d'en-tête 2



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

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 · 2 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 · 3 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?