Locvo236
Thành viên mới
- Tham gia
- 11/2/20
- Bài viết
- 16
- Được thích
- 0
BỊ LỖI LUÔN R BẠN ƠI. HUHUBạn thử nhé.
Mã:Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1:D10")) Is Nothing Then If Len(Target.Value) > 0 Then ActiveSheet.Unprotect 123 Target.Locked = True ActiveSheet.Protect 123 End If End If End Sub