Note: The other languages of the website are Google-translated. Back to English
English English

วิธีป้องกันส่วนหัวและส่วนท้ายใน 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

doc ป้องกันส่วนหัวส่วนท้าย 1

หมายเหตุ: คุณสามารถแทรกเนื้อหาส่วนหัวหรือส่วนท้ายลงในตำแหน่งที่เกี่ยวข้องในโค้ดด้านบน

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

doc ป้องกันส่วนหัวส่วนท้าย 2


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (8)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ชอบโค้ดที่ปกป้องส่วนหัวและส่วนท้าย มีวิธีเปลี่ยนขนาดฟอนต์ สไตล์ และสีในโค้ดเพื่อให้โค้ดนี้แทนที่ด้วยฟอนต์ที่ใหญ่ขึ้นเสมอหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ใช้สิ่งนี้กับชื่อแผ่นงานอัตโนมัติ ตำแหน่งไฟล์ และหมายเลขหน้า และเมื่อบันทึก คุณจะต้องคลิกในแต่ละฟิลด์เพื่อพิมพ์อย่างถูกต้อง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
notas: Puede insertar el contenido del encabezado o pie de página en la ubicación ติดต่อ en el código ล่วงหน้า
ไม่มีสิ่งที่แนบมาด้วย , por favor si pueden explicarme, lo agradecería.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หลังจากปิดและเปิดไฟล์ excel อีกครั้ง ส่วนหัว/ส่วนท้ายยังสามารถลบได้ แล้วจะแก้ไขปัญหานี้ได้อย่างไร? 
ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เทรซี่ เมื่อคุณปิดสมุดงาน คุณควรบันทึกเป็น สมุดงานที่เปิดใช้งานแมโคร Excel รูปแบบนี้จะบันทึกรหัส เปิดไฟล์นี้ในครั้งต่อไป โปรดคลิก เปิดใช้งานเนื้อหา จากด้านบนของแถบสูตรเพื่อเปิดใช้งานรหัส โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Posso inserir uma imagem ไม่มี cabeçalho?

Porque o meu cabeçalho é o logotipo da empresa

ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
J'aime beaucoup, mais ce n'Est qu'une semi-sécurité pour l'en-tête ตัวดัดแปลง Je peux les en-tête et les pied de page et imprimer avec la modified แสดงความคิดเห็น je pourrais empêcher toute การปรับเปลี่ยน แน่นอน comme avec la protection de la feuille ???
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ไมเคิล
ในความเป็นจริง เมื่อคุณพิมพ์เวิร์กชีต ส่วนหัวหรือส่วนท้ายจะไม่เปลี่ยนแปลง เพียงแค่เปลี่ยนการแสดงผลในตัวอย่างก่อนพิมพ์
โปรดลองอีกครั้ง ขอบคุณ!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ