ขอสอบถามกูรูเรื่องการล็อค Cell และปลดล็อค Cell ในโปรแกรม Excel 2010

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(ActiveCell, Range("C15:C17")) Is Nothing Then
        Exit Sub
    Else
        If Selection.Offset(0, -1).Value = "" Then
            Selection.Offset(0, -1).Select
        End If
    End If
End Sub