Proteger formulas

Deja esa hoja protegida, y los datos donde haya que
agregar filas trasládalos a otra hoja. Si es
imprescindible que todos los datos estén visibles, puedes
trabajar con dos ventanas, o bien vincular las fórmulas
protegidas en la nueva hoja.

:-)

Hola grupo, en Excel 97 tengo una hoja en la que hay 5

celdas que

contienen fórmulas, el caso es que necesito proteger

esas celdas de

forma que nadie pueda modificar las formulas pero si

deben de poder

agregar filas a la hoja, si protejo las celdas y luego

la hoja para

que tenga efecto, no puedo agregar filas. Como se puede

solucionar el

problema?

Gracias de antemano.
.

Las celdas donde estan las formulas si pueden protegerse, pero recuerda el
objetivo de proteger formulas es no cambiarlas y si agregas filas que van
afectar dicha formula entonces no tendria sentido que protegieras la
formula, es por ello que Excel no te permite insertar lineas y/o columnas

Fernando

"Korpetit" wrote in message
news:

Hola grupo, en Excel 97 tengo una hoja en la que hay 5 celdas que
contienen fórmulas, el caso es que necesito proteger esas celdas de
forma que nadie pueda modificar las formulas pero si deben de poder
agregar filas a la hoja, si protejo las celdas y luego la hoja para
que tenga efecto, no puedo agregar filas. Como se puede solucionar el
problema?

Gracias de antemano.

hola, Korpetit !

... en Excel 97 ... 5 celdas que contienen formulas ... proteger esas celdas
... que nadie pueda modificar las formulas pero si deben de poder agregar filas a la hoja
... si protejo las celdas y luego la hoja para que tenga efecto, no puedo agregar filas.
Como se puede solucionar el problema?

1.- selecciona 'esas' cinco celdas y =>asignales<= un nombre [p.e. 'CeldasProtegidas']
[en la 'caja de nombres', a la izquierda de la barra de formulas]
si es un rango 'continuo'... selecciona =>UNA × UNA<= [usando la tecla {Ctrl}]
2.- copia las siguientes lineas de codigo en el modulo de 'esa' hoja...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("CeldasProtegidas")) Is Nothing Then Target.Offset(1).Select
End Sub

saludos,
hector.