Macros en Hojas protegidas

20/12/2003 - 06:53 por millie94 | Informe spam
Hola, a quienes puedan ayudar para el siguiente problema:

He creado pequeñas macros en distintas hojas de un libro de excel, pero
luego de proteger dichas hojas y querer ejecutar alguna macro se produce
un error,

por ej. una macro ordena una lista en forma ascendente, guarda los cambios
y pasa a otra hoja del libro, se interrumpe mostrando el siguiente error:
"Error 1004" en tiempo de ejecución. Fallo en el método sort de la clase
rang.

Espero haberme podido explicar y que alguien pueda orientarme, muchas
gracias.





Mensaje enviado desde http://grupos.buscadoc.org

 

Leer las respuestas

#1 Héctor Miguel
20/12/2003 - 08:12 | Informe spam
hola, Carolina !

... macros en distintas hojas ... pero luego de proteger ... y ... ejecutar alguna macro se produce un error [...]



puedes usar el metodo 'protect' estableciendo en 'true' el argumento 'userinterfaceonly', con lo cual...
'lo que sea' que hagas 'por codigo' estara 'permitido' =>usalo en el evento '_open' del libro<'ventajas' = NO es necesario 'repetir' el password :)) [p.e.]
en el modulo de codigo del libro 'ThisWorkbook' ==Private Sub Workbook_Open()
Worksheets("Hoja1").Protect UserInterfaceOnly:=True
End Sub

si se trata de 'varias' hojas, puedes modificar a lo siguiente:
Private Sub Workbook_Open()
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("Hoja1", "Hoja3"))
Hoja.Protect UserInterfaceOnly:=True
Next
End Sub

saludos,
hector.

Preguntas similares