วิธีล็อคหรือป้องกันเซลล์หลังจากป้อนข้อมูลหรือป้อนข้อมูลใน Excel
สมมติว่าคุณมีเวิร์กชีตและมีเซลล์ว่างเพียงช่วงหนึ่งที่ต้องป้อนข้อมูล และหลังจากป้อนข้อมูลเสร็จแล้ว คุณต้องการล็อกเซลล์โดยอัตโนมัติเพื่อป้องกันไม่ให้มีการเปลี่ยนแปลงอีก คุณจะทำสิ่งนี้ได้อย่างไร บทความนี้อาจช่วยคุณได้
ล็อคหรือป้องกันเซลล์หลังจากป้อนข้อมูลหรือป้อนข้อมูลด้วยรหัส VBA
ล็อคหรือป้องกันเซลล์หลังจากป้อนข้อมูลหรือป้อนข้อมูลด้วยรหัส VBA
ตัวอย่างเช่นช่วงของเซลล์ว่างบางช่วงคือ A1: F8 โปรดทำดังนี้เพื่อล็อคเซลล์เหล่านี้หลังจากป้อนข้อมูลใน Excel
1. โปรดปลดล็อคช่วงนี้ก่อนโดยเลือกเซลล์ คลิกขวา จากนั้นเลือก จัดรูปแบบเซลล์ ในเมนูคลิกขวาและใน จัดรูปแบบเซลล์ กล่องโต้ตอบยกเลิกการเลือก ล็อค ภายใต้ การป้องกัน และสุดท้ายคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:
2 คลิก รีวิว > ป้องกันแผ่นงาน. และระบุรหัสผ่านเพื่อป้องกันแผ่นงานนี้
3. คลิกขวาที่แท็บแผ่นงานเลือก ดูรหัส จากเมนูคลิกขวา จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส ดูภาพหน้าจอ:
รหัส VBA: ล็อคหรือป้องกันเซลล์หลังจากป้อนข้อมูลหรือป้อนข้อมูล
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
หมายเหตุ: ในรหัส “A1:F8” คือช่วงที่คุณต้องป้อนข้อมูล และ “123” คือรหัสผ่านสำหรับเวิร์กชีตที่ได้รับการป้องกัน โปรดเปลี่ยนรหัสผ่านตามที่คุณต้องการ
4 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
หลังจากป้อนข้อมูลในเซลล์ของช่วง A1: F8 เสร็จแล้วข้อมูลเหล่านั้นจะถูกล็อคโดยอัตโนมัติ และคุณจะได้รับกล่องโต้ตอบพร้อมท์หากคุณพยายามเปลี่ยนเนื้อหาเซลล์ใด ๆ ของช่วงนี้ ดูภาพหน้าจอ:
บทความที่เกี่ยวข้อง:
- วิธีล็อคการอ้างอิงเซลล์ทั้งหมดในสูตรพร้อมกันใน Excel
- วิธีล็อคหรือปลดล็อกเซลล์ตามค่าในเซลล์อื่นใน Excel
- วิธีล็อครูปภาพ / รูปภาพไปยังหรือภายในเซลล์ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!