celda de solo lectura

Se tiene que proteger la Hoja. Espero este ejemplo que
saqué de la Ayuda de Excel te sirva.

Javier

Sub UseAllowEdit()

Dim wksOne As Worksheet

Set wksOne = Application.ActiveSheet

' Protect the worksheet
wksOne.Protect

' Notify the user about editing cell A1.
If wksOne.Range("A1").AllowEdit = True Then
MsgBox "Cell A1 can be edited."
Else
Msgbox "Cell A1 cannot be edited."
End If

End Sub

Hola, quisiera desde codigo poder decirle a una celda o
rango de celdas que sean de solo lectura. ¿Es posible?.
Gracias de antemano.
.