Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • Excel
  • วิธีอนุญาตให้แก้ไขวัตถุในแผ่นงานที่มีการป้องกันใน Excel

วิธีอนุญาตให้แก้ไขวัตถุในแผ่นงานที่มีการป้องกันใน 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 สำหรับ 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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (1)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ขอบคุณสำหรับบทความที่เป็นประโยชน์ ฉันลองใช้วิธีโค้ด VBA แล้ว แต่วิธีนี้ใช้ไม่ได้ผลสำหรับฉัน


รหัสของฉัน (ขออภัยในการจัดรูปแบบ ไม่สามารถคัดลอก&วางได้):


สมุดงานย่อย_เปิด ()

Dim ws เป็นแผ่นงาน

สำหรับแต่ละ ws ในแผ่นงาน

ws.Protect UserInterfaceOnly:=True, รหัสผ่าน:="123"

ws.Enable AutoFilter = จริง

ws.EnableOutlining = จริง

ถ้า ActiveSheet.Protection.AllowFormattingColumns = False แล้ว

ActiveSheet.Protect AllowFormattingColumns:=True

End If

ด้วยแผ่นงาน ("Sheet1")

.EnableOutlining = จริง

.EnableAutoFilter = จริง

.ปกป้องรหัสผ่าน:="123", _

สารบัญ:=True, DrawingObjects:=False, UserInterfaceOnly:=True

จบด้วย

ถัดไป ws

ย่อยสิ้นสุด


มันใช้งานได้ดี แต่ทันทีที่ฉันบันทึก ปิด และเปิดไฟล์อีกครั้ง ฉันก็เหมือนกัน

- ขอใส่รหัสผ่าน (ไลค์ 5 ครั้ง) ทันที หรือ

- สามารถลบการป้องกันโดยไม่ต้องใช้รหัสผ่านใด ๆ สำหรับแผ่นงานใดแผ่นหนึ่ง (โดยปกติ "Sheet1" ตามรหัส)


มีใครได้รับข้อผิดพลาดแบบเดียวกับฉันหรือไม่ หรือใครสามารถช่วยฉันได้บ้าง


ขอขอบคุณล่วงหน้า


BR

วาเนสซ่า
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL