วิธีล็อคและกำหนดเซลล์ที่ไม่ว่างใน Excel ไว้ล่วงหน้า

สมมติว่าฉันมีเวิร์กชีตที่เติมเซลล์ว่างบางส่วนภายในช่วงข้อมูลตอนนี้ฉันต้องการล็อกและป้องกันเซลล์ข้อมูลทั้งหมดและปล่อยให้เซลล์ว่างปลดล็อกเพื่อป้อนค่าใหม่ คุณจะล็อกและป้องกันเซลล์ที่ไม่ว่างเปล่าให้เร็วที่สุดเท่าที่จะทำได้ใน Excel ได้อย่างไร?

ล็อกและป้องกันเซลล์ที่ไม่ว่างทั้งหมดในช่วงที่เลือกด้วย Protect Sheet

ล็อคและป้องกันเซลล์ที่ไม่ว่างทั้งหมดในช่วงที่ใช้ด้วยรหัส VBA

ล็อกและป้องกันเซลล์ที่ไม่ว่างทั้งหมดในช่วงที่เลือกด้วย Protect Sheet

โดยปกติคุณสามารถทำงานนี้ให้เสร็จใน Excel ด้วยวิธีการต่อไปนี้ทีละขั้นตอน:

1. เลือกช่วงเซลล์ที่คุณต้องการล็อกและป้องกันเซลล์ข้อมูลจากนั้นคลิก หน้าแรก > ค้นหาและเลือก > ไปที่พิเศษดูภาพหน้าจอ:

2. ใน ไปที่พิเศษ ใหเลือก ช่องว่าง จาก เลือก ส่วนดูภาพหน้าจอ:

3. จากนั้นคลิก OK และเซลล์ว่างทั้งหมดถูกเลือกพร้อมกันจากนั้นกด Ctrl + 1 คีย์เพื่อเปิด จัดรูปแบบเซลล์ ภายใต้ การป้องกัน แท็บยกเลิกการเลือก ล็อค ตัวเลือกดูภาพหน้าจอ:

4. คลิก OKและจากนั้นคลิก รีวิว > ป้องกันแผ่นงานจากนั้นป้อนและยืนยันรหัสผ่านตามที่คุณต้องการดูภาพหน้าจอ:

5. คลิก OK เพื่อปิดกล่องโต้ตอบและตอนนี้เซลล์ข้อมูลทั้งหมดได้รับการปกป้องแล้วและปล่อยให้เซลล์ว่างเท่านั้นที่ไม่มีการป้องกัน

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

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

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

ล็อคและป้องกันเซลล์ที่ไม่ว่างทั้งหมดในช่วงที่ใช้ด้วยรหัส VBA

วิธีการข้างต้นมีหลายขั้นตอนเพื่อให้บรรลุโดยเร็วที่สุดโค้ด VBA ต่อไปนี้สามารถช่วยคุณได้โปรดทำตามนี้:

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

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

รหัส VBA: ล็อกและป้องกันเซลล์ที่ไม่ว่างทั้งหมดในแผ่นงาน

Sub UnlockEmptyCells()
'Updateby Extendoffice
    Application.ScreenUpdating = False
    Cells.Locked = True
    Selection.SpecialCells(xlCellTypeBlanks).Locked = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
End Sub

3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้เฉพาะเซลล์ที่ไม่ว่างเท่านั้นที่ได้รับการป้องกันพร้อมกันในช่วงที่ใช้