Macro Excel Bloquear Hojas
Buenos días,
Tengo el siguiente código que me bloquea con contraseña la hoja "INVENTARIO" pero habilita la opción de agrupar y desagrupar filas, esto se ejecuta al abrir el archivo, quisiera modificar este código para que hiciera lo mismo con todas las hojas del libro,
Private Sub Workbook_Open() With Worksheets("INVENTARIO")
.EnableOutlining = True
.Protect Password:="contraseña", _
Contents:=True, UserInterfaceOnly:=True
End WithEnd Sub
Gracias,
1 Respuesta
Para 'todas' las hojas sería así:
Private Sub Workbook_Open() For Each sh in workbook.sheets With sh .EnableOutlining = True .Protect Password:="contraseña", _ Contents:=True, UserInterfaceOnly:=True End With next sh End Sub
PD) Todos lo tipos de bucles explicados y ejemplificados en mis manuales de Programación.
Saludos y no olvides finalizar la consulta.
Gracias por la oportuna respuesta, intente con el nuevo código pero apenas abro el libro y le habilito las macros me aparece:
Se ha producido el error '424' en tiempo de ejecución:
Objeto Solicitado
Hago click en depuración y me resalta en amarillo
For Each sh In Workbook.Sheets
Dejala así entonces:
For Each sh In ActiveWorkbook.Sheets
Sdos
Elsa
