Hỏi về cách khóa dữ liệu ở nhiều Sheet theo điều kiện đưa ra? (2 người xem)

[gakon_Office]

Xin chào mọi người, Chúc sức khỏe!

Em muốn Hỏi về cách khóa dữ liệu ở nhiều Sheet theo điều kiện đưa ra.
Cụ thể là câu hỏi em cũng đã để trong file kèm.
Các chuyêm gia xem có thể thực hiện được như vậy không ạ?
Mong được giúp đỡ. Xin cám ơn.

 

[dhn46]

Bạn dùng cái này rồi tùy biến

Sub khoa_sheet()Dim t As Long, sh As Worksheet
t = DateDiff("d", DateSerial(Year([f12]), Month([f12]), Day([f12])), DateSerial(Year([f13]), Month([f13]), Day([f13])))
For Each sh In Worksheets
    If sh.Name = "Sheet1" Or sh.Name = "Sheet2" Then
    With sh
        .Unprotect
        .Cells.Locked = False
        .[e11].Resize(19, t).Locked = True
        .Protect
    End With
    End If
Next
End Sub