¿su puede aplicar filtros con la hoja bloqueada?

hola, Jordi !

¿... aplicar el autofiltros con la hoja bloqueada? en el excel 97 ... alguna forma ... programandolo con VBA

con una 'pequeña ayuda' [y el siguiente codigo en el modulo del libro -ThisWorkbook-] :))
==> 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}
_________
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect UserInterfaceOnly:=True
.EnableAutoFilter = True
End With
End Sub

la condicion para que funcione es ... que el AutoFiltro debe 'estar presente' ANTES.
['EnableAutoFilter = True' SOLO 'permite' al usuario su uso [en hojas protegidas], NO su 'creacion']

si la hoja 'en cuestion' NO tiene 'presente' el Autofiltro y lo quieres 'crear' [por codigo] ... [p.e.]
_________
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect UserInterfaceOnly:=True
If Not .AutoFilterMode Then .Range("a1").AutoFilter
.EnableAutoFilter = True
End With
End Sub

saludos,
hector.

Yo tengo los autofiltros que me funcionan correctamente y cuando bloqueo ya
no me deja pulsar para deplegar los filtros.


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

hola, Jordi !

> ¿... aplicar el autofiltros con la hoja bloqueada? en el excel 97 ...

alguna forma ... programandolo con VBA

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

libro -ThisWorkbook-] :))

==> 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}

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

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

presente' ANTES.

['EnableAutoFilter = True' SOLO 'permite' al usuario su uso [en hojas

protegidas], NO su 'creacion']

si la hoja 'en cuestion' NO tiene 'presente' el Autofiltro y lo quieres

'crear' [por codigo] ... [p.e.]

_________
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect UserInterfaceOnly:=True
If Not .AutoFilterMode Then .Range("a1").AutoFilter
.EnableAutoFilter = True
End With
End Sub

saludos,
hector.

Yo tengo los autofiltros que me funcionan correctamente y cuando bloqueo ya
no me deja pulsar para deplegar los filtros.


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

hola, Jordi !

> ¿... aplicar el autofiltros con la hoja bloqueada? en el excel 97 ...

alguna forma ... programandolo con VBA

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

libro -ThisWorkbook-] :))

==> 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}

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

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

presente' ANTES.

['EnableAutoFilter = True' SOLO 'permite' al usuario su uso [en hojas

protegidas], NO su 'creacion']

si la hoja 'en cuestion' NO tiene 'presente' el Autofiltro y lo quieres

'crear' [por codigo] ... [p.e.]

_________
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect UserInterfaceOnly:=True
If Not .AutoFilterMode Then .Range("a1").AutoFilter
.EnableAutoFilter = True
End With
End Sub

saludos,
hector.

Yo tengo los autofiltros que me funcionan correctamente y cuando bloqueo ya
no me deja pulsar para deplegar los filtros.


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

hola, Jordi !

> ¿... aplicar el autofiltros con la hoja bloqueada? en el excel 97 ...

alguna forma ... programandolo con VBA

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

libro -ThisWorkbook-] :))

==> 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}

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

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

presente' ANTES.

['EnableAutoFilter = True' SOLO 'permite' al usuario su uso [en hojas

protegidas], NO su 'creacion']

si la hoja 'en cuestion' NO tiene 'presente' el Autofiltro y lo quieres

'crear' [por codigo] ... [p.e.]

_________
Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect UserInterfaceOnly:=True
If Not .AutoFilterMode Then .Range("a1").AutoFilter
.EnableAutoFilter = True
End With
End Sub

saludos,
hector.