problemas con autofiltros

19/12/2007 - 21:34 por dubicm | Informe spam
hola a tod@s,

tengo instalado el excel 2000 en el ordenador y mi problema es el siguiente:
tengo una base de datos con la hoja protegida y no puedo realizar
autofiltros, en excel 2003 se que se puede hacer pero en 2000 no veo como y
el problema es que en el trabajo no pueden instalar el 2003 ni xp, tiene que
ser el 2000, sabe alguien como puedo hacer para que sin dejar de proteger la
hoja pueda realizar los autofiltros?

espero que me puedan ayudar.

muchas gracias.

saludos.

dubicm
 

Leer las respuestas

#1 Héctor Miguel
19/12/2007 - 23:01 | Informe spam
hola, eduardo !

tengo instalado el excel 2000 en el ordenador y mi problema es el siguiente:
tengo una base de datos con la hoja protegida y no puedo realizar autofiltros
en excel 2003 se que se puede hacer pero en 2000 no veo como y el problema es que en el trabajo
no pueden instalar el 2003 ni xp, tiene que ser el 2000
sabe alguien como puedo hacer para que sin dejar de proteger la hoja pueda realizar los autofiltros?



necesitas (re)proteger la hoja en el evento '_open' de tu libro estableciendo dos caracteristicas:
-> la proteccion a solo la interfase con el usuario
-> el permiso para usar los autofiltros (y esquemas) los cuales YA deberan estar presentes en tu hoja

a) en excel 97 y 2000 NO necesitas 'repetir' el password <= es 'suficiente' con poner:
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

b) a partir de excel 2002 [xp] SI es requisito 'repetir' el password :-( <Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect _
PassWord:="la MISMA cOntRaSe#a qUe lE pUsISte", _
UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

(practicamente) TODO lo que hagas por codigo... pasara sin problemas
(excepto ciertas cosillas relacionadas con ordenaciones, insertar filas/columnas y objetos incrustados) :-((

OJO: si llegaras a necesitar que el usuario defina sobre que listado aplica los autofiltros...
copia/pega las siguientes lineas en un modulo de codigo 'general' y asignas la macro a algun boton/atajo/...
Option Private Module
Sub AutoFiltrosPorMacro()
With ActiveCell.CurrentRegion
If .Count > 1 Then
If .Parent.AutoFilterMode Then
If .Parent.AutoFilter.Range.Address <> .Address Then .AutoFilter
End If
.AutoFilter
Else
MsgBox """Activa"" por favor (alg)una celda" & vbCr & _
"""dentro"" (o... ""cerca"") de la lista ""a filtrar"".", _
vbInformation, "AutoFiltros por macros"
End If
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares