Как выборочно Разрешить / Запретить редактирование ячеек листа

Для 8.х в нижеследующем коде замените СоздатьОбъект на Новый COMОбъект, остальное все также: