Locked excel เฉพาะข้อความ VB

[Godtheking]

ผมอยากล็อคข้อมูล B-->N ทั้งหมดที่มีข้อความ
ส่วนที่ไม่มีข้อความไม่ให้ล็อคแต่พอเพิ่มข้อความเข้าไปแล้วให้ล็อคอัตโนมัติ
ทำได้ไหมครับ
ผมลองหาข้อมูลมาแล้วแต่ทำไม่ได้ครับช่วยหน่อยครับ

Code: Select all

Sub protectsheet()

ActiveSheet.Unprotect Password:="543050"
If ActiveCell.Value <> " " Then
     ActiveCell.Offset(0, 1).Locked = True
     'Sheets(1).Cells.Locked = True
     ActiveSheet.Protect Password:="543050"
Else
     ActiveCell.Locked = True
     ActiveSheet.Protect Password:="543050"
End If
End Sub

[snasui]

จากที่เขียนมาแสดงว่าเริ่มจากการ Lock ส่วนที่มีข้อความเอาไว้ก่อนแล้ว ช่วยอธิบายว่าจะมีการ Unlock เพื่อให้เพิ่มข้อความด้วยเหตุการณ์ใด หรือต้องไปทำอะไร ที่ไหน อย่างไร ถึงจะให้เพิ่มข้อความได้ การ Lock หลังจากเพิ่มข้อความแล้วเป็นเรื่องไม่ยากครับ

กรุณาแนบไฟล์ที่ลองเขียนมาก่อนแล้วเสมอ จะได้สะดวกในการตอบของเพื่อนสมาชิกครับ