Usar autofiltro en hoja protegida

Hola a todos
Tengo un libro con varias hojas protegidas y quiero que en las hojas
que tengo protegidas puedan usar los autofiltros, me funciona en todas
las hojas excepto a la que hace relación esta macro:
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect Password:="clave", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
Me funciona en el momento en que lo protejo, pero si cierro el libro y
lo vuelvo a abrir no funciona, tendría que desproteger y proteger de
nuevo (marcando opción usar autofiltro). ¿Como podría solucionarlo?
Muchas gracias por vuestra atención
Saludos
Cecilia

escribió:
> Hola a todos
> Tengo un libro con varias hojas protegidas y quiero que en las hojas
> que tengo protegidas puedan usar los autofiltros, me funciona en todas
> las hojas excepto a la que hace relación esta macro:
> Private Sub Workbook_Open()
> With Worksheets("Hoja1")
> .Protect Password:="clave", userinterfaceonly:=True
> .EnableOutlining = True
> End With
> End Sub
> Me funciona en el momento en que lo protejo, pero si cierro el libro y
> lo vuelvo a abrir no funciona, tendría que desproteger y proteger de
> nuevo (marcando opción usar autofiltro). ¿Como podría solucionarlo?
> Muchas gracias por vuestra atención
> Saludos
> Cecilia
>

Hola Cecilia :-)

Pues le falta la linea de codigo para habilitar el filtro, entonces
quedaria asi :-)

Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect Password:="clave", userinterfaceonly:=True, _
AllowFiltering:=True
.EnableOutlining = True

End With
End Sub

Nos comentas ok? :-)

Saludos
Monica

¡Un SAludo! :-)

www.fermu.com
www.zorval.es