ไปยังเนื้อหาหลัก

วิธีป้องกันตารางสาระสำคัญใน Excel

ใน Excel เราจะป้องกันตาราง Pivot เพื่อป้องกันไม่ให้ผู้ใช้รายอื่นลากฟิลด์หรือทำให้เค้าโครงยุ่งเหยิงได้อย่างไร บทความนี้ฉันจะพูดถึงวิธีการบางอย่างในการป้องกันตาราง Pivot ในแผ่นงาน

ปกป้องตาราง Pivot ด้วยรหัส VBA

ป้องกันตาราง Pivot แต่อนุญาตให้เข้าถึงตัวแบ่งส่วนข้อมูล


ลูกศรสีฟ้าฟองขวา ปกป้องตาราง Pivot ด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณป้องกันตาราง Pivot ได้โปรดทำตามนี้:

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

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ป้องกันตารางเดือย

Sub RestrictPivotTable()
'Updateby Extendoffice
Dim xpf As PivotField
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1)
  .EnableDrilldown = False
  .EnableFieldList = False
  .EnableFieldDialog = False
  .PivotCache.EnableRefresh = False
  For Each xpf In .PageFields
    With pf
      .DragToPage = False
      .DragToRow = False
      .DragToColumn = False
      .DragToData = False
      .DragToHide = False
    End With
  Next xpf
End With
Application.ScreenUpdating = False
    MsgBox "The pivot table has been protected!", vbInformation, "Kutools for Excel"
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนคุณว่าตาราง Pivot ได้รับการป้องกันดูภาพหน้าจอ:

doc ป้องกันตารางเดือย 1

หมายเหตุ:

1. รหัสนี้จะปิดใช้งานคุณลักษณะต่างๆในตาราง Pivot เช่นการป้องกันไม่ให้ผู้ใช้ลากเขตข้อมูลใด ๆ ไปยังตำแหน่งอื่นและปิดใช้งานรายการเขตข้อมูลการตั้งค่าเขตข้อมูลการดูรายละเอียดและคุณลักษณะการรีเฟรช

2. หากมีตาราง Pivot หลายตารางในแผ่นงานที่ใช้งานอยู่รหัสนี้จะใช้กับตาราง Pivot สุดท้ายเท่านั้น


ลูกศรสีฟ้าฟองขวา ป้องกันตาราง Pivot แต่อนุญาตให้เข้าถึงตัวแบ่งส่วนข้อมูล

บางครั้งคุณอาจต้องการป้องกันตาราง Pivot แต่อนุญาตให้เข้าถึงตัวแบ่งส่วนข้อมูลเพื่อใช้ฟังก์ชันตัวกรองขั้นตอนต่อไปนี้สามารถช่วยคุณได้

1. หลังจากใส่ตัวแบ่งส่วนข้อมูลแล้วให้คลิกขวาแล้วเลือก ขนาดและคุณสมบัติ จากเมนูบริบทดูภาพหน้าจอ:

doc ป้องกันตารางเดือย 2

2. ใน รูปแบบตัวแบ่งส่วนข้อมูล บานหน้าต่างคลิก อสังหาริมทรัพย์ เพื่อขยายตัวเลือกจากนั้นยกเลิกการเลือก ล็อค ตัวเลือกดูภาพหน้าจอ:

doc ป้องกันตารางเดือย 3

3. จากนั้นปิดบานหน้าต่างแล้วคลิก รีวิว > ป้องกันแผ่นงาน เพื่อป้องกันแผ่นงานนี้ดูภาพหน้าจอ:

doc ป้องกันตารางเดือย 4

4. ในการโผล่ออกมา ป้องกันแผ่นงาน จากนั้นเลือก เลือกเซลล์ที่ปลดล็อก และ ใช้ PivotTable & PivotChart ตัวเลือกเฉพาะในไฟล์ อนุญาตให้ผู้ใช้ทั้งหมดของแผ่นงานนี้ จากนั้นป้อนรหัสผ่านและยืนยันดูภาพหน้าจอ:

doc ป้องกันตารางเดือย 5

5. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบและตอนนี้เมื่อคุณคลิกรายงานตารางสาระสำคัญและพยายามเปลี่ยนแปลงจะไม่ถูกแก้ไข แต่คุณสามารถใช้คุณสมบัติตัวแบ่งส่วนข้อมูลได้ตามที่คุณต้องการ

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for this tip. My question is, how do I reverse the code and edit the pivot table now?
This comment was minimized by the moderator on the site
For Each xpf In .PageFields
With pf

а где "х" потеряли?))) должно же быть With xpf
This comment was minimized by the moderator on the site
The macro doesn't work it just throws an object error
This comment was minimized by the moderator on the site
Hi, andrew,
The code works well, after applying the code, you will get the prompt box to remind you the pivot table has been protected, and then close it, now, when changing any data in the pivot table, a warning message box will be pop out.
This comment was minimized by the moderator on the site
Does not work. Get a run error
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations