hoja protegida y filtros

05/08/2007 - 01:22 por gonzalo recepcionista | Informe spam
tengo una hoja con celdas bloqueadas y para eso necesito proteger la hoja,
tengo ademas una opcion de autofiltro en un rango de celdas pero estando la
hoja protegida no puedo usar el autofiltro, ¿puede solucionarse esto?
 

Leer las respuestas

#1 Héctor Miguel
05/08/2007 - 06:34 | Informe spam
hola, gonzalo !

tengo una hoja con celdas bloqueadas y para eso necesito proteger la hoja
tengo ademas una opcion de autofiltro en un rango de celdas pero estando la hoja protegida no puedo usar el autofiltro
puede solucionarse esto?



1) no mencionas la version de excel que estas usando, pero a partir de la version xp/2002, puedes aprovechar...
la carcteristica de habilitar [o permitir al usuario] el uso de los autofiltros [y esquemas] en una hoja protegida ;)

2) si piensas andar des/re/protegiendo la hoja y/o tu archivo se utilizara en versiones anteriores [que no soportan esta caracteristica]...
[creo que] seria mejor si proteges la hoja Y 'autorizas' el uso de los autofiltros en el evento '_open' del libro ;)

op1: si necesitas usar autofiltros sobre hojas protegidas, 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

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

Preguntas similares