Insertar y eliminar filas (hoja protegida en Excel 97) con la formula que le antecede

hola [de nuevo], Carlos !

perdon... me falto 'el detalle' de que la hoja esta protegida :))

si necesitas que la proteccion NO 'afecte' a tus macros ->SIN tener que [des/re]proteger la hoja<-
y puesto que la hoja ya tiene su clave asignada... puedes usar la instruccion de 'solo interfase de usuario'

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

ejemplos protegiendo la hoja al abrirse el libro sin que les afecte modificarlas por codigo...

a) en excel 97 y 2000 NO necesitas 'repetir' el password <= es 'suficiente' con poner:
en el modulo de codigo del libro ==Private Sub Workbook_Open()
Worksheets("Hoja1").Protect UserInterfaceOnly:=True
End Sub

b) a partir de excel 2002 [xp] SI es requisito 'repetir' el password :-( < en el modulo de codigo del libro ==Private Sub Workbook_Open()
Worksheets("Hoja1").Protect _
PassWord:="la MISMA cOntRaSe#a qUe lE pUsISte", _
UserInterfaceOnly:=True
End Sub

c) si se trata de varias hojas [supoiendo una misma clave para todas]...
en el modulo de codigo del objeto ThisWorkbook de tu libro [prueba data.xls] ==Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("hoja1", "hoja4", "hoja6"))
Hoja.Protect PassWord:="123", UserInterfaceOnly:=True
Next
End Sub

[practicamente] TODO lo que 'hagas por codigo'... pasara 'sin problemas'

Héctor Miguel ha escrito:

... puedes usar la instruccion de 'solo interfase de usuario'

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Héctor un gusto en saludarte y a su vez agradecerte por tu
gentileza: Me parece fenomenal tu propuesta en usar sólo una imagen y
como tal la he aplicado y funciona muy bien a excepción que cuando
realizo la operación de insertar y/o eliminar filas se desprotege mi
hoja. Asi mismo debo señalarte que esta hoja tambien tiene una macro
de autofiltro con hoja protegida.

Estas son las dos sintaxis que estoy usando:

1. En relación al autofiltro con hoja protegida:
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("data", "kardex", "ingresos"))
Hoja.Protect PassWord:="1234", UserInterfaceOnly:=True
Hoja.EnableAutoFilter = True
Next
End Sub

2. En referencia a la inserción y/o eliminación de filas que me has
propuesto:
Private Declare Function MonitorDeTeclas _
Lib "User32" Alias "GetAsyncKeyState" _
(ByVal Tecla As Long) As Integer
Private Function Mayusc() As Boolean
Mayusc = (MonitorDeTeclas(vbKeyShift) And &H8000)
End Function
Sub Imagen22_AlHacerClic()
Application.ScreenUpdating = False
If TypeName(Selection) <> "Range" Then Exit Sub
If Mayusc Then Selection.EntireRow.Delete: Exit Sub
Selection.EntireRow.Insert
Selection.Offset(-1).Resize(1).EntireRow.Copy _
Cells(Selection.Row, 1).Resize(Selection.Rows.Count)
Cells(Selection.Row, 2).Resize(Selection.Rows.Count, 8).ClearContents
End Sub

3. Finalmente disculpa que no lo entienda muy bien cuando te refieres a
"usar la instruccion de 'solo interfase de usuario' ". ¿Cómo procedo
hacer ello?

Una vez más reitero mi agradecimiento.

Carlos

hola, Carlos !

... funciona... a excepcion que cuando realizo la operacion de insertar y/o eliminar filas se desprotege mi hoja.
... debo se#alarte que esta hoja tambien tiene una macro de autofiltro con hoja protegida...

1) la 'des-proteccion' de la hoja sucede -solo- cuando se insertan filas [no cuando se eliminan] ;)
2) cuando 'recomiendo' el evento '_open' para evitar macros que des/re/pretegen hojas [pongo al final]...
-> [practicamente] TODO lo que 'hagas por codigo'... pasara 'sin problemas'
-> efectivamente... nunca lo habia probado insertando filas en hojas 'protegidas' :-(

necesitaras volver a proteger la hoja luego de la ejecucion de la macro [solo cuando se insertan filas] p.e.

Sub Imagen914_AlHacerClic()
Application.ScreenUpdating = False
If TypeName(Selection) <> "Range" Then Exit Sub
If Mayusc Then Selection.EntireRow.Delete: Exit Sub
Selection.EntireRow.Insert
Selection.Offset(-1).Resize(1).EntireRow.Copy _
Cells(Selection.Row, 1).Resize(Selection.Rows.Count)
Cells(Selection.Row, 2).Resize(Selection.Rows.Count, 8).ClearContents
ActiveSheet.Protect PassWord:="1234", UserInterfaceOnly:=True
ActiveSheet.EnableAutoFilter = True
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Hector un gusto en saludarte: Realmente SENSACIONAL. Muy pero muy
agradecido, estoy supercontento.

Saludos desde el Perú,

Carlos Carnero Gálvez