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 d'autres personnes de les modifier ? Normalement, il n'y a pas de solution directe pour résoudre cette tâche dans la feuille de calcul, mais le code VBA suivant pourrait vous aider.

Protéger l'en-tête et le pied de page avec un code VBA

Protéger l'en-tête et le pied de page avec un code VBA

L'en-tête et le pied de page sont utiles lors de l'impression d'une feuille de calcul. Pour éviter qu'ils ne soient modifiés par d'autres, suivez les étapes ci-dessous :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Double-cliquez ensuite sur ThisWorkbook sous la section VBAProject pour ouvrir un module vide, puis copiez et collez le code suivant dans le module :

Code VBA : Protéger 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
    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

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

3. Ensuite, enregistrez et fermez ce code. Maintenant, lorsque vous cliquez sur le bouton Enregistrer pour sauvegarder ce classeur, le contenu modifié de l'en-tête ou du pied de page reviendra automatiquement à l'original si vous avez essayé de changer l'en-tête ou le pied de page, voir capture d'écran :

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !