hoja bloqueada y filtros

Hola J.M.,

Una hoja de cálculo bloqueada en la que necesito hacer filtros.

Si se trata de AutoFiltro, entonces hay al menos una solucion, pero es por codigo VBA (creo que en Office 2003 se puede hacerlo sin
VBA, pero desconozco como, creo que es atraves del dialogo de proteger la hoja).

1) Copia el codigo de abajo en el modulo VBA del Libro. Para ello:
a/ haz clic derecho sobre el pequeno icono de Excel a la izquierda del menu Archivo y selecciona la opcion 'Ver Codigo' - se abrira
el Editor VBA.
b/ en la ventana mas grande a la derecha pega el codigo de abajo.
c/ modifica la contrasena y el nombre de la hoja a proteger en el codigo si
es necesario.

2) Guarda y cierra el fichero.

3) Vuelve a abrir el libro. Si al abrir el archivo, los macros no se habilitan el AutoFiltro no
funcionara. Por lo tanto el usuario tiene q habilitar los macros para poder
usarlo. Entonces si se habilitan los macros, se dispara el codigo y vuelve a
proteger la hoja, pero solo el interfaz de usario y tambien habilita el
AutoFiltro.

Desafotunadamente todo este procedimiento es necesario porque la proteccion
exclusiva del interfaz de usuario no se puede guardar, es decir se puede
guardar, pero pasa a ser automaticamente proteccion completa y el filtro no
funcionara si no se dispara el codigo desde VBA.

Un saludo,
KL

'-Inicio Codigo-
Private Sub Workbook_Open()
With Sheets("Hoja1") 'Cambia el nombre de la hoja si es necesario
If .AutoFilterMode Then
.EnableAutoFilter = True
.Protect userinterfaceonly:=True, _
password:="" 'Pon tu contrasena entre comillas
End If
End With
End Sub
'-Fin Codigo-