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

วิธีอนุญาตให้แก้ไขวัตถุในแผ่นงานที่มีการป้องกันใน Excel

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

อนุญาตให้แก้ไขวัตถุในแผ่นงานที่มีการป้องกันโดยการตรวจสอบตัวเลือกแก้ไขวัตถุ
อนุญาตให้แก้ไขวัตถุในแผ่นงานที่มีการป้องกันด้วยรหัส VBA

อนุญาตให้แก้ไขวัตถุในแผ่นงานที่มีการป้องกันโดยการตรวจสอบตัวเลือกแก้ไขวัตถุ

โปรดตรวจสอบตัวเลือกแก้ไขวัตถุเพื่ออนุญาตให้แก้ไขวัตถุก่อนที่จะปกป้องแผ่นงาน กรุณาดำเนินการดังนี้

1 คลิก รีวิว > ป้องกันแผ่นงาน.

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

ตอนนี้เวิร์กชีตได้รับการป้องกันและอ็อบเจ็กต์ทั้งหมดในเวิร์กชีตที่มีการป้องกันนี้สามารถแก้ไขได้

อนุญาตให้แก้ไขวัตถุในแผ่นงานที่มีการป้องกันด้วยรหัส VBA

หากแผ่นงานได้รับการป้องกันแล้วคุณสามารถลองใช้สคริปต์ VBA ด้านล่างเพื่ออนุญาตให้แก้ไขวัตถุได้ กรุณาดำเนินการดังนี้

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก สมุดงานนี้ ทางด้านซ้าย โครงการ บานหน้าต่าง จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ ThisWorkbook (รหัส) หน้าต่าง

รหัส VBA: อนุญาตให้แก้ไขวัตถุในแผ่นงานที่มีการป้องกัน

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในรหัส Sheet3 คือแผ่นงานที่มีการป้องกันซึ่งมีวัตถุที่คุณต้องการแก้ไข และหมายเลข“ 123” คือรหัสผ่านของแผ่นงานที่มีการป้องกัน โปรดเปลี่ยนตามที่คุณต้องการ

3 กด F5 คีย์เพื่อรันโค้ดและอ็อบเจ็กต์ทั้งหมดในเวิร์กชีตที่มีการป้องกันนี้สามารถแก้ไขได้ทันที

บทความที่เกี่ยวข้อง:

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

🤖 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 (1)
No ratings yet. Be the first to rate!
Vanessa
Vanessa
This comment was minimized by the moderator on the site
Hi,
thanks for the helpful article. I tried the VBA Code method but it doesn't quite work for me.


My Code (sorry for formatting, couldn't copy&past it):


Sub Workbook_Open ()

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = True

If ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=True

End If

With Worksheets ("Sheet1")

.EnableOutlining = True

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

End With

Next ws

End Sub


It works just fine but as soon as I'm saving, closing and reopening the file, I am either

- requested to insert the Password (like 5 times) immediately or

- able to remove the protection without any Password for one of the worksheets (usually "Sheet1" as in the Code)


Is somebody getting the same error as me? Or can somebody help me?


Thank you in advance.


BR

Vanessa
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations