Блокировка определенных строк и столбцов в VBA

Question

У меня есть кусок кода, который выполняет определенные функции.Теперь я хочу разблокировать лист перед тем, как запустить этот фрагмент кода, и после завершения выполнения этого кода я хочу заблокировать строку 1 и столбцы A, B, I, Q с помощью пароля.

For i = 2 To LastRowAT
    If sht.Range("B" & i).Value = "BK" And sht.Range("D" & i).Value = "Allocated" And sht.Range("C" & i).Value = Max_date Then
        If sht.Range("A" & i).Value = Workbooks("Co_insurer Sample File.xlsx").Worksheets("QUIDAM-INSURERS").Range("A" & i).Value Then
            Workbooks("Co_insurer Sample File.xlsx").Worksheets("QUIDAM-INSURERS").Range("A" & i & ":V" & i).Copy _
                Workbooks("Smart_Excel_BK.xlsm").Worksheets("Input").Range("Q" & (LastRowBK))
            wsDest.Range("A" & LastRowBK).Value = "BK"
            wsDest.Range("B" & LastRowBK).Value = Max_date
            LastRowBK = LastRowBK + 1
        End If
    End If
Next i