
如何在Excel中保護頁眉和頁腳?
在Excel中,我們可以快速輕松地保護單元格,但是,您是否曾經嘗試過保護頁眉和頁腳以防止其他人修改它們? 通常,沒有直接的方法可以解決工作表中的此任務,但是,以下VBA代碼可能會幫您一個忙。
用VBA代碼保護頁眉和頁腳
用VBA代碼保護頁眉和頁腳頁眉和頁腳對于我們在打印工作表時很有用,為防止其他人更改它們,請執行以下步驟:
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。
2。 然后雙擊 的ThisWorkbook 在下面 VBA項目 部分以打開空白模塊,然后將以下代碼復制并粘貼到模塊中:
VBA代碼:保護頁眉和頁腳
Option ExplicitPrivate Sub Workbook_BeforePrint(Cancel As Boolean)Call ProtectHFEnd SubPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Call ProtectHFEnd SubPrivate Sub Workbook_Open()Call ProtectHFEnd SubPrivate Sub ProtectHF()Updateby ExtendofficeApplication.ScreenUpdating = FalseThisWorkbook.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 = TrueEnd SubCopy備注:您可以將頁眉或頁腳內容插入上述代碼中的相應位置。
3。 然后,現在,在單擊的同時保存并關閉此代碼 優惠 按鈕保存此工作簿,如果您嘗試更改頁眉或頁腳,則修改后的頁眉或頁腳內容將自動恢復為原始內容,請參見屏幕截圖:
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!準備好增強您的 Excel 任務了嗎? 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel!
為什么需要 Kutools for Excel

