Khóa bảng tính theo điều kiện ? (1 người xem)

[Hoàng Nhật Phương]

Xin chào tất cả các bạn,
Như tiêu đề O.Thơ đã nêu ạ và điều kiện cụ thể O.Thơ đã viết chi tiết trong file đính kèm.
Phiền các bạn dành chút thời gian để giúp đỡ cho O.Thơ ạ.


Trân trọng cảm ơn.
O.Thơ

 

[phulien1902]

Xin chào tất cả các bạn,
Như tiêu đề O.Thơ đã nêu ạ và điều kiện cụ thể O.Thơ đã viết chi tiết trong file đính kèm.
Phiền các bạn dành chút thời gian để giúp đỡ cho O.Thơ ạ.


Trân trọng cảm ơn.
O.Thơ

Cũng là 1 cách để bạn tham khảo:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Const PAS As String = "HO"
    If Not Intersect(Target, Range("d8:D27")) Is Nothing Then
        If Target.Value = "b" Or Target.Value = "c" Then
            Target.Offset(, 1).Resize(, 13).Locked = True
        End If
        Sheet1.Protect PAS
    End If
End Sub

 

[Hoàng Nhật Phương]

Hi 2 bạn: hpkhuong (lạnh lùng ^^) & phulien1902
O.Thơ đã áp dụng các code trên của 2 bạn, kết quả đã Ok rồi ạ.
Xin cảm ơn các bạn thật nhiều.