Seleccionar hojas determinadas y bloquearlas.

[henryericsson]

Buen día.

Estoy trabajando en un archivo Excel, en donde tengo un registro con ciertas celdas bloqueadas agrupadas y otras no. Me resulto el código de agrupar y desagrupar cuando mi hoja esta bloqueada lo cual es:

  With Worksheets("Hoja1")

        .EnableOutlining = True

        .Protect Password:="contraseña", _

        Contents:=True, UserInterfaceOnly:=True

    End With[/CODE]

Ahora quiero bloquear 2 hojas más (Hoja1,Hoja2,Hoja3) de mi libro Excel con el mismo formato mostrado en el código.

A la espera de vuestro gran apoyo.