Hola,
Tengo varias hojas que tienen celdas agrupadas y que a su vez están protegidas, metí el siguiente código:
Private Sub Workbook_Open()
With Worksheets("mixto")
.Protect Password:="123", Userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
Me funciona pero solamente con una hoja, es decir si yo quisiera que aplicara a otra hoja, lo que hice fue copiarlo dos veces y es cuando ya no funciona 8solo funciona la primera) me dice que es ambiguo., así lo tengo:
Private Sub Workbook_Open()
With Worksheets("mixto")
.Protect Password:="123", Userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
Private Sub Workbook_Open()
With Worksheets("resumen")
.Protect Password:="123", Userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub