T3995_Allow Users To Edit Specific Range

https://excel-egy.com/forum/t3995
---------------------------------

Sub Allow_Users_To_Edit_Specific_Range()
    Dim ws As Worksheet, lr As Long

    Set ws = ActiveSheet

    With ws
        If .Range("A1") = "Yes" Then
            .Unprotect
                lr = .Cells(Rows.Count, 3).End(xlUp).Row
                .Cells.Locked = True
                .Range("A5:A" & lr).Locked = False
            .Protect
        End If
    End With
End Sub