วิธีป้องกันส่วนหัวและส่วนท้ายใน Excel

ใน Excel เราสามารถปกป้องเซลล์ได้อย่างรวดเร็วและง่ายดาย แต่คุณเคยพยายามป้องกันส่วนหัวและส่วนท้ายเพื่อป้องกันไม่ให้ผู้อื่นแก้ไขหรือไม่ โดยปกติไม่มีวิธีโดยตรงในการแก้ปัญหานี้ในแผ่นงาน แต่รหัส VBA ต่อไปนี้อาจช่วยคุณได้

ปกป้องส่วนหัวและส่วนท้ายด้วยรหัส VBA

ปกป้องส่วนหัวและส่วนท้ายด้วยรหัส VBA

ส่วนหัวและส่วนท้ายมีประโยชน์สำหรับเราเมื่อพิมพ์แผ่นงานเพื่อป้องกันไม่ให้ผู้อื่นเปลี่ยนแปลงโปรดทำตามขั้นตอนต่อไปนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นดับเบิลคลิก สมุดงานนี้ ภายใต้ โครงการ 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. จากนั้นบันทึกและปิดรหัสนี้ในขณะที่คลิก ลด เพื่อบันทึกเวิร์กบุ๊กนี้เนื้อหาส่วนหัวหรือส่วนท้ายที่แก้ไขจะถูกส่งกลับไปยังต้นฉบับโดยอัตโนมัติหากคุณพยายามเปลี่ยนส่วนหัวหรือส่วนท้ายดูภาพหน้าจอ:

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!