Ayuda con una macro

"Cecilia" escribió en el mensaje news:

Hola a todos,
¿que tengo que hacer para que esta macro funcione tambien en hoja2,
hoja3 ? y aparte (para otro libro) ¿sería lo mismo si quiero que
funcione en todas las hojas de un mismo libro?.

Hola,
podrías recorrer las hoja presentes en el libro de esta forma (modifico sobre tu ejemplo):

'*****************************
Private Sub Workbook_Open()
Dim objHoja As WorkSheet

For Each objHoja In ThisWorkbook.Sheets
With objHoja
.Protect Password:="clave", userinterfaceonly:=True, _
AllowFiltering:=True
.EnableOutlining = True

'*****************************


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

Hola,

pincha en herramientasmacro--macros

Selecciona la macro que quieras aplicar y abajo tendras una lista donde
puedes seleccionar "aplicar en todos los libros de trabajo abiertos"
"Cecilia" wrote in message
news:
Hola a todos,
¿que tengo que hacer para que esta macro funcione tambien en hoja2,
hoja3 ? y aparte (para otro libro) ¿sería lo mismo si quiero que
funcione en todas las hojas de un mismo libro?.

Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect Password:="clave", userinterfaceonly:=True, _
AllowFiltering:=True
.EnableOutlining = True

Muchas gracias por vuestra ayuda y feliz año a todos.
Saludos
Cecilia