Uatofiltro y Proteccion

Hola, Gerardo !

... base de datos que modifico unicamente con macros.
... usuario ... pide que permita poner autofiltros, solo para ver informacion sin modificarla.
... logico ... problema ... con la hoja protegida no funciona el autofiltro.
... forma de mantener la proteccion de la hoja y usar el autofiltroen ella ?

con una 'pequeña ayuda' [y siguiente codigo en el modulo del libro -ThisWorkbook-]
la condicion para que funcione es... que el AutoFiltro debe 'estar presente' ANTES de la ejecucion del codigo
[la instruccion EnableAutoFilter = True solo 'permite' su uso [en hojas protegidas], NO su 'creacion'] :((
______
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

Si deseas que funcione desde ya [sin 'tener que' cerrar y abrir de nuevo el libro]...
... 'te paras' en la macro =>Private Sub Workbook_Open<= y presionas {F5}

saludos,
Héctor.

Hola, aprovechando la consulta como se puede proteger una hoja y hacer una
extracción sin que mande error?
Yo he intentado haerlo pero simpre me da error a la hora de extraer la
informacion que manejo mediante macros, gracias
Jose Mauricio


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

Hola, Gerardo !

> ... base de datos que modifico unicamente con macros.
> ... usuario ... pide que permita poner autofiltros, solo para ver

informacion sin modificarla.

> ... logico ... problema ... con la hoja protegida no funciona el

autofiltro.

> ... forma de mantener la proteccion de la hoja y usar el autofiltroen

ella ?

con una 'pequeña ayuda' [y siguiente codigo en el modulo del

libro -ThisWorkbook-]

la condicion para que funcione es... que el AutoFiltro debe 'estar

presente' ANTES de la ejecucion del codigo

[la instruccion EnableAutoFilter = True solo 'permite' su uso [en hojas

protegidas], NO su 'creacion'] :((

______
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

Si deseas que funcione desde ya [sin 'tener que' cerrar y abrir de nuevo

el libro]...

... 'te paras' en la macro =>Private Sub Workbook_Open<= y presionas {F5}

saludos,
Héctor.

Hola, Joe !

... proteger una hoja y hacer una extraccion sin que mande error?
... simpre me da error a la hora de extraer la informacion ... mediante macros [...]

sin 'entender' [exactamente] a que te refieres con... 'hacer una extraccion' :((
al usar el metodo 'Protect' con el argumento 'UserInterfaceOnly = True' ...
'lo que hagas' por codigo NO debiera tener 'restricciones' :))

Private Sub Workbook_Open()
Worksheets("Hoja1").Protect UserInterfaceOnly:=True
End Sub

saludos,
Héctor.

Gracias Hector lo voy a probar, a lo que me referia es hacer uso del comando
filtro avanzado para obtener por medio de un filtrado ciertos datos,
como siempre te agradezco tu ayuda.
Jose Mauricio


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

Hola, Joe !

> ... proteger una hoja y hacer una extraccion sin que mande error?
> ... simpre me da error a la hora de extraer la informacion ... mediante

macros [...]

sin 'entender' [exactamente] a que te refieres con... 'hacer una

extraccion' :((

al usar el metodo 'Protect' con el argumento 'UserInterfaceOnly = True'

...

'lo que hagas' por codigo NO debiera tener 'restricciones' :))

> Private Sub Workbook_Open()
> Worksheets("Hoja1").Protect UserInterfaceOnly:=True
> End Sub

saludos,
Héctor.

Hola Hector otra vez, pues no funciono, te doy el codigo para ver si eres
tan amable de checarlo.


Sub IndustrialActualiza()
Worksheets("IndF").Protect UserInterfaceOnly:=True
MesAño = Application.Cells(5, "L")
Application.Cells(2, "R") = MesAño
' Aqui manda el error de que la hoja esta protegido la hoja es "IndF"
' que ahi se lleva a cabo el filtro
Range("BAreneras").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:_
Range("CAreneras"), CopyToRange:=Range("EAreneras"), Unique:=False

' TOMA LOS SALDOS FINALES DE BANCOS E INVERSIONES
renglon = Application.Cells(2, "o")
SFBancos = Application.Cells(renglon, "EN")
SFInversiones = Application.Cells(renglon, "EO")
'Application.Cells(161, "j") = SFBancos
Application.Cells(162, "j") = SFInversiones
' PARA CAMBIAR EL TITULO DEL REPORTE SE PONE EN BLANCO LA CELDA N7
Application.Cells(7, "N") = ""
' CALCULA EL TITULO DE LOS MESES
Mes1 = Application.Cells(6, "r")
Mes2 = Application.Cells(renglon, "r")
Año1 = Application.Cells(3, "o")
Application.Cells(3, "C") = Mes1 & " " & Año1 & " A " & Mes2 & " " & Año1
End Sub

Pro cierto trabajo con excel xp
Te agradezco tu ayuda
Jose Mauricio



"Joe" escribió en el mensaje
news:

Gracias Hector lo voy a probar, a lo que me referia es hacer uso del

comando

filtro avanzado para obtener por medio de un filtrado ciertos datos,
como siempre te agradezco tu ayuda.
Jose Mauricio


"Héctor Miguel" escribió en el mensaje
news:%
> Hola, Joe !
>
> > ... proteger una hoja y hacer una extraccion sin que mande error?
> > ... simpre me da error a la hora de extraer la informacion ...

mediante

macros [...]
>
> sin 'entender' [exactamente] a que te refieres con... 'hacer una
extraccion' :((
> al usar el metodo 'Protect' con el argumento 'UserInterfaceOnly = True'
...
> 'lo que hagas' por codigo NO debiera tener 'restricciones' :))
>
> > Private Sub Workbook_Open()
> > Worksheets("Hoja1").Protect UserInterfaceOnly:=True
> > End Sub
>
> saludos,
> Héctor.
>
>