Блокировка ячеек для заполнения по заданному условию

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Блокировать ячейки с комментариями для заполнения по условию
 
Dim OI As Workbook
Set OI = ActiveWorkbook
Set SH = OI.Sheets("Лист1")
 
Dim a As Integer, b As Integer
a = ActiveCell.Row 'Номер строки кликнутой ячейки
b = ActiveCell.Column 'Номер столбца
 
'Блокировать столбец 7, если столбец 8 не заполнен
If IsEmpty(SH.Cells(a, 8)) = True Then
If b = 7 Then
    ActiveSheet.Unprotect
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Else
    ActiveSheet.Unprotect
End If
 
 
'Блокировать столбец 10 и 14, если столбец 9 не заполнен
If IsEmpty(SH.Cells(a, 9)) = True Then
If b = 14 Then
    ActiveSheet.Unprotect
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
If b = 10 Then
    ActiveSheet.Unprotect
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
    ActiveSheet.Unprotect
End If
End If
End If
 
'Блокировать столбец 14, если столбец 9 заполнен по условию
If IsEmpty(SH.Cells(a, 9)) = False And SH.Cells(a, 9).Value <> "подписан" Then
If b = 14 Then
    ActiveSheet.Unprotect
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
    ActiveSheet.Unprotect
End If
End If
 
'Блокировать столбец 10, если столбец 9 заполнен по условию
If SH.Cells(a, 9).Value = "подписан" Then
If b = 10 Then
    ActiveSheet.Unprotect
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
    ActiveSheet.Unprotect
End If
End If
 
 
End Sub