none
DESBLOQUEO EN CELDAS AGRUPADAS RRS feed

  • Pregunta

  • 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

    lunes, 13 de mayo de 2019 22:51

Todas las respuestas

  • Hola

    Mete los bloques de código WITH en un único procedimiento.

    Salu2, 


    José Mª Fueyo

    martes, 14 de mayo de 2019 7:04
  • Ilse,

    Buen día, lo que necesitas hacer es quitar 2 lineas de código, quedando de la siguiente forma:

    Private Sub Workbook_Open()

        With Worksheets("mixto")
            .Protect Password:="123", Userinterfaceonly:=True
            .EnableOutlining = True
        End With
        With Worksheets("resumen")
            .Protect Password:="123", Userinterfaceonly:=True
            .EnableOutlining = True
        End With
    End Sub


    Saludos. Francisco Diez.

    miércoles, 15 de mayo de 2019 13:54