Agrupar y desagrupar "distintas" hojas protegidas

28/01/2014 - 19:16 por Nacho | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Nacho
29/01/2014 - 08:35 | Informe spam
El martes, 28 de enero de 2014 19:16:05 UTC+1, Nacho escribió:
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





El martes, 28 de enero de 2014 19:16:05 UTC+1, Nacho escribió:
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



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
Respuesta Responder a este mensaje
#2 Nacho
30/01/2014 - 14:24 | Informe spam
El martes, 28 de enero de 2014 19:16:05 UTC+1, Nacho escribió:
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




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")

.EnableOutlining = True

.Protect Password:="cijimc", _

Contents:=True, UserInterfaceOnly:=True

End With

End Sub

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida