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?.

Y como se podría hacer esto con un rango? Lo he intentado con el codigo que
has puesto pero al sustituir la celda por un rango no hace nada.

"KL" <lapink2000(at)hotmail.com (former )> escribió en
el mensaje news:

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?.

Por ejemplo esto. Ojo q la proteccion es relativa, ya q si el usuario entra
sin habilitar macros nu funcionaria.
Saludos,
KL

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
With Target
'Protege el rango E2:E100
If .Column = 5 And .Row > 1 And .Row < 101 _
Then Range("A1").Select
End With
End Sub


"David" wrote in message
news:

Y como se podría hacer esto con un rango? Lo he intentado con el codigo que
has puesto pero al sustituir la celda por un rango no hace nada.

"KL" <lapink2000(at)hotmail.com (former )> escribió en
el mensaje news:

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?.