Autofiltros con hoja protegida

23/11/2006 - 19:42 por lusoluso | Informe spam
He leído los post que versan sobre este tema pero no coinciden con
miproblema. Me explico: Tengo una hoja con autofiltros en sus seis columnas.
Cuando protejo la hoja, los autofiltros no funcionan. ¿Qué debo hacer?... No
quiero que vuando se abra la hoja protegida, el usuario pueda poner la opción
de autofiltro, sino que cuando se habra la hoja se vea claramente que las
seis columnas se pueden ordenar utilizando los correspondientes autofiltros.
Muchas gracias por anticipado

lusoluso
 

Leer las respuestas

#1 Héctor Miguel
24/11/2006 - 04:58 | Informe spam
hola, 'anonimo/a' !

He leido los post que versan sobre este tema pero no coinciden con mi problema.
Me explico: Tengo una hoja con autofiltros en sus seis columnas.
Cuando protejo la hoja, los autofiltros no funcionan. Que debo hacer?...
No quiero que cuando se abra la hoja protegida, el usuario pueda poner la opcion de autofiltro
sino que cuando se habra la hoja se vea claramente que las seis columnas se pueden ordenar utilizando los correspondientes autofiltros.



[pues]... con los datos que expones, no 'se ve' alguna situacion que pudiera hacer de 'tu caso'... un caso 'especial' -?-
[como]... tampoco comentas cuales son las propuestas que ya hubieras intentado sin alcanzar a resolver esta 'situacion' -?-
[asi que]... por que no 'intentas' [probablemente 'de nuevo'] con alguna de las siguientes propuestas ?
[ya comentaras algun detalle que faltara] :)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

op1: si tu hoja ya tiene asignados y activos los autofiltros, copia/pega las siguientes lineas...
en el modulo de codigo del libro [obviamente, modificas nombre de hoja y clave de proteccion] :))
Private Sub Workbook_Open()
With Worksheets("hoja1")
.Protect Password:="123", UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

op2: 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

Preguntas similares