Excelでヘッダーとフッターを保護する方法は？

Excelでは、セルを迅速かつ簡単に保護できますが、ヘッダーやフッターを保護して他人による変更を防ぐことは試したことがありますか？通常、ワークシート内でこのタスクを直接解決する方法はありませんが、次のVBAコードが役立つかもしれません。

VBAコードを使用してヘッダーとフッターを保護

VBAコードを使用してヘッダーとフッターを保護

ヘッダーとフッターは、ワークシートを印刷する際に便利です。他人に変更されないように保護したい場合は、以下の手順に従ってください：

1. ALT + F11キーを押しながら押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 次に、VBAProjectセクションの下にあるThisWorkbookをダブルクリックして空白のモジュールを開き、以下のコードをコピーしてモジュールに貼り付けます。

VBAコード: ヘッダーとフッターを保護

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

注: 上記のコード内の対応する場所にヘッダーやフッターの内容を挿入できます。

3. その後、このコードを保存して閉じます。今、このワークブックを保存するために「 保存」ボタンをクリックすると、ヘッダーやフッターを変更しようとした場合、変更されたヘッダーやフッターの内容は自動的に元のものに戻ります。スクリーンショットをご覧ください：

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！