Locked excel เฉพาะข้อความ VB
Posted: Tue Apr 18, 2023 10:55 pm
ผมอยากล็อคข้อมูล 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
จากที่เขียนมาแสดงว่าเริ่มจากการ Lock ส่วนที่มีข้อความเอาไว้ก่อนแล้ว ช่วยอธิบายว่า