En una hoja protegida, como desbloqueo las filas agrupadas?

Hola Sausarez,

Suponiendo que...
- usarias la misma clave para proteger todas las hojas
- tu libro puede tener hojas que no deberian ser afectadas

podrias modificar el codigo de la siguiente manera:

'inicio codigo--
'Cambia el nombre de hoja y la clave.
Private Sub Workbook_Open()
Dim hoja As Worksheet
For Each hoja In Worksheets
Select Case LCase(hoja.Name)
Case "hoja1", "hoja2" 'nombres de hojas a excluir en minusculas
Case Else
With hoja
.Protect Password:="abracadabra", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Select
Next hoja
End Sub
'final codigo--

Nota: obviamente en una hoja recien introducida la funcionalidad no estara disponible hasta que se ejecute el codigo, sea cerrando y abriendo el archivo o ejecutando el codigo expresamente desde el Editor VBA.

Saludos,
KL


"Sausarez" wrote in message news:

KL:

Perdón, solo un pequeño detalle, este código que me diste es para una sola
hoja, como le hago para varias hojas? digamos que para que cada hoja nueva
que se agruegue tenga esta propiedad???

Gracias nuevamente por tu atención.

Saludos

"KL" wrote:

Hola Sausarez,

Prueba incluir el siguiente codigo en el modulo VBA de ThisWorkbook (EsteLibro). Cambia el nombre de hoja y la clave.

Private Sub Workbook_Open()
With Sheets("Hja1")
.Protect Password:="abracadabra", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub


Saludo,
KL


"Sausarez" wrote in message news:
> En una hoja de Excel, tengo varias filas agrupadas, donde el usuario final va
> a ingresar datos.
> Como sabemos, al agrupar filas o datos, aparece un signo de "+" o de "-"
> para expandir o contraer este grupo.
> Ya bloqué y desbloqué todas las celdas de acuerdo a su función, pero cuando
> quiero oprimir el "+" o el "-" (según sea el caso) no me deja hacerlo ya que
> estos permanecen bloqueados y el usuario final no va a poder hacer uso de los
> mismos, son importantes ya que estos agrupan gran cantidad de datos.
>
> Espero haberme explicado, gracias por su atención