ReadOnly для одной ячейки - VB

Формулировка задачи:

Подскажите, плиз, каксделать ReadOnly только для строго заданных ячеек, а не для всего документа Ексель? И можно ли вобще такое сделать?

Решение задачи: «ReadOnly для одной ячейки»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> UseAllowEditRanges()

    <font color="blue">Dim</font> wksSheet <font color="blue">As</font> Worksheet

    <font color="blue">Set</font> wksSheet = Application.ActiveSheet

    <font color="00AA00">' Add a range that can be edited on the protected worksheet.</font>
    wksSheet.Protection.AllowEditRanges.Add <font color="teal">"Test"</font>, Range(<font color="teal">"A1"</font>)
    wksSheet.Protect
    wksSheet.Range(<font color="teal">"A1"</font>).Value = <font color="teal">"qwerty"</font>
    <font color="00AA00">' Notify the user the title of the range that can be edited.</font>
<font color="00AA00">'    MsgBox wksSheet.Protection.AllowEditRanges(1).Title</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        