如何在 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 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！