Agrupar y desagrupar "distintas" hojas protegidas

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

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

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

Private Sub Workbook_Open()

With Worksheets("Hoja1")

.EnableOutlining = True

.Protect Password:="cijimc", _

Contents:=True, UserInterfaceOnly:=True

End With

.EnableOutlining = True

.Protect Password:="cijimc", _

Contents:=True, UserInterfaceOnly:=True

End With

End Sub