如何在Excel中保護頁眉和頁腳？

在Excel中，我們可以快速輕鬆地保護單元格，但是，您是否曾經嘗試過保護頁眉和頁腳以防止其他人修改它們？ 通常，沒有直接的方法可以解決工作表中的此任務，但是，以下VBA代碼可能會幫您一個忙。

用VBA代碼保護頁眉和頁腳

用VBA代碼保護頁眉和頁腳

頁眉和頁腳對於我們在打印工作表時很有用，為防止其他人更改它們，請執行以下步驟：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 然後雙擊 的ThisWorkbook 在 VBA項目 部分以打開空白模塊，然後將以下代碼複製並粘貼到模塊中：

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 功能。 立即下載 並體驗前所未有的效率！