Bloquear celda contra escritura por codigo.

Hola PIPON,

Que tal esto :)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Excel.Range)
If Target.Address = "$C$5" Then Range("A1").Select
End Sub

Pero, en serio, creo q es mejor q escribas algun macro q te desproteja la
hoja para editar y luego vuelva a protegerla. Mas o menos asi:

Sheets("Hoja1").Unprotect "TuContrasena"
TuCodigo
Sheets("Hoja1").Protect "TuContrasena"

Saludos,
KL

"PIPON" <truja(arroba)hotmail.com> wrote in message
news:%

Alguien sabe como bloquear una celda contra escritura mediante codigo vb?.