Macro que se ejecute automatica al cambiar entre dos Hojas

hola, Jorge !

... funciona... Solo hay un peque#o detalle
trate de proteger la hoja con una contrase#a dejando... las celdas editables sin proteccion pero no funcionan los codigos.
Se#ala que no se pueden activar los codigos en hojas protegidas.
Ni modo, no todo se puede en esta vida... quedara a criterio del usuario si la descompone toda...

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.

Héctor, no me da problema con los autofiltros sino con el modulo que ordena
automaticamente las celdas "a4:bx701" al salir de la hoja Personal:

Private Sub Worksheet_Deactivate()
With Me.Range("a4:bx701", Range("a4:bx701").End(xlToRight).End(xlDown))
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
End With
End Sub

Se puede corregir para este módulo con la misma opcion 1 que mencionas???

Gracias
"Héctor Miguel" escribió:

hola, Jorge !

> ... funciona... Solo hay un peque#o detalle
> trate de proteger la hoja con una contrase#a dejando... las celdas editables sin proteccion pero no funcionan los codigos.
> Se#ala que no se pueden activar los codigos en hojas protegidas.
> Ni modo, no todo se puede en esta vida... quedara a criterio del usuario si la descompone toda...

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.