Ayuda con una macro

"Cecilia" escribió en el mensaje news:
Mostrar la cita

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