Блокировка ячейки в vba excel

Question

Я хочу заблокировать ячейку в VBA Excel. Я прочитал предыдущие ответы и использовал их. но клетка не блокирует. !!!! это мой код:

Number = Range("A1") 
If Number < 5 Then 
    Cells(1, 1).Locked = True 
Else 
    Cells(1, 1).Locked = False 
End If 

После подпрограммы бежит cells(1,1) не защищен.

Answer 1

Заблокированная ячейка становится защищенной при переключении защиты для рабочего листа. Вам нужно добавить

Cells(1, 1).Worksheet.Protect 

Это делает все заблокированные ячейки, защищенные (см example).

P.S. По умолчанию все ячейки are locked