Agrupar y desagrupar "distintas" hojas protegidas

[Nacho]

Buenas tardes,
Quisiera agrupar y desagrupar distintas hojas protegidas, es decir, si tengo 10 hojas, quiero que agrupar y desagrupar solo funcione en determinadas hojas, no en todas.

Este es la formula que usaría para una hoja:

Private Sub Workbook_Open()
With Worksheets("Hoja1")
.EnableOutlining = True
.Protect Password:="cijimc", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub


Y esta formula sería para todas las hojas:

Private Sub Workbook_Open()
For Each sh In ActiveWorkbook.Sheets
With sh
.EnableOutlining = True
.Protect Password:="cijimc", _
Contents:=True, UserInterfaceOnly:=True
End With
Next sh
End Sub


Pero solo quiero que funcione por ejemplo, para 5 hojas de las 10 que tengo.

Muchas gracias de antemano, saludos cordiales,

Nacho

[Nacho]

Olvidé indicar que no todas las hojas están bloqueadas, y no todas tienen que agrupar y desagrupar filas o columnas.

nº hojas total: 10
nº hojas bloqueadas: 7
nº hojas bloqueadas que necesitan agrupar y desagrupar: 5

[Nacho]

El martes, 28 de enero de 2014 19:16:05 UTC+1, Nacho escribió:

Lo he conseguido:

Este es la formula que usaría para una hoja:
>
>
>
> Private Sub Workbook_Open()
>
> With Worksheets("Hoja1")
>
> .EnableOutlining = True
>
> .Protect Password:="cijimc", _
>
> Contents:=True, UserInterfaceOnly:=True
>
> End With

With Worksheets("Hoja2")