ReadOnly ячейки, как сделать?

[AHTOXA]

Привет всем.
Требуется сделать некоторый набор ячеек доступным только для чтения, например такой Range("A1:AA7"), как?

[Igor_123]

Ctrl+1
Закладка "Защита" и читаешь каковы дальнейшие действия
И Хелп, в офисе, очень хороший

[AHTOXA]

Требуется защитить ячейки программно.
Метод ActiveSheet.Protect я вызвал, но как сделать ячейки из выделенного диапазона доступными на чтение???

[alibek]

Для ячеек задай свойство Locked.

[AHTOXA]

Разобрался:
ActiveSheet.Range("A1:IV7").Locked = False
ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True

Делает недоступной для редактирования текущую страничку, кроме ячеек A1:IV7.