No funciona el filtro cuando ejecuto una macro

tengo un botón el cual contiene una macro para redirigirse a una hoja llamada "CLIENTES REGISTRADOS" esta hoja tiene filtros pero no me funcionan los filtros... 

Private Sub CommandButton1_Click()
valor = Val(TextBox1) 'Convierte a número el valor capturado en el Textbox
If Not valor = 1234 Then 'Si el valor es diferente que 1234 entonces
MsgBox "Contraseña incorrecta" 'Manda el mensaje
Else
ActiveSheet.Protect password:="28021990"
Sheets("CLIENTES REGISTRADOS ").Select
Range("A2").Select
Application.ScreenUpdating = False
Unload Me
ActiveSheet.Protect password:="28021990"
End If
End Sub

este es mi macro... Orienten me para activar los filtros

1 respuesta

Respuesta
2

Debes proteger la hoja permitiendo los Autofiltros.

La instrucción sería para tu caso:

    ActiveSheet.Protect Password:="28021990, DrawingObjects:=True, Contents:=True, Scenarios:=True" _
        , AllowFiltering:=True

Sdos

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas