Filtro con protección.

Ahhhhh...de esa forma ya me queda más claro, en realidad lo que necesito es
que el usuario cuando lo desee cree un autofiltro en la hoja protegida, será
posible?...si no lo es dime que procedimiento puedo implementar en mi código
para que los cree.

Mil gracias!




"Héctor Miguel" escribió en el mensaje
news:

hola, ?

... probe con tu solucion y efectivamente protege la hoja
...pero sigue sin mostrarme la opcion 'Autofiltro' aunque la propiedad
EnableAutoFilter este igualada a True :-(
la unica opcion que aparece habilitada es 'Filtro Avanzado'

[hasta donde se]... cuando se trata de hojas protegidas para la operacion
del usuario 'final'...

a) 'una cosa' es... -> 'permitir el uso' de los autofiltros
[para lo cual, los autofiltros YA deberan estar
'aplicados/determinados/establecidos/...'] <= OJO

b) 'otra cosa' es... -> 'darle permiso de CREAR/modificar/restablecer/...'
a que rangos se aplican los autofiltros
[en cuyo caso... sera necesario que los autofiltros sean 'generados'
por la misma macro] -?-

comentas por cual camino 'van los tiros' ?
saludos,
hector.

hola, ?

... lo que necesito es que el usuario cuando lo desee cree un autofiltro en la hoja protegida, sera posible?
...si no lo es dime que procedimiento puedo implementar en mi codigo para que los cree.

prueba con la siguiente sugerencia [ya comentaras algun detalle que faltara] :)
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en el modulo de codigo del libro ==Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect Password:="123", UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

en un modulo de codigo 'general' y la asignas a 'tu boton' ==Option Private Module
Sub AutoFiltrosPorTeclado()
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

Funcionó Héctor Miguel...mil gracias!!!



"Héctor Miguel" escribió en el mensaje
news:

hola, ?

... lo que necesito es que el usuario cuando lo desee cree un autofiltro
en la hoja protegida, sera posible?
...si no lo es dime que procedimiento puedo implementar en mi codigo para
que los cree.

prueba con la siguiente sugerencia [ya comentaras algun detalle que
faltara] :)
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en el modulo de codigo del libro ==> Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect Password:="123", UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

en un modulo de codigo 'general' y la asignas a 'tu boton' ==> Option Private Module
Sub AutoFiltrosPorTeclado()
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