Activar filtro o desactivar con contraseña
Tengo el siguiente código:
Private Sub CommandButton3_Click()
Unload Me
Sheets("BOLETOS").Visible = True
Sheets("BOLETOS").Select
ActiveSheet.Unprotect Password:="jmp"
ActiveSheet.[A1].Select
If AutoFilterMode Then
Range("a1").AutoFilter
Else
'Range("a1").AutoFilter
Range("c1:r1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End If
ActiveSheet.Protect Password:="jmp"
End Sub
Este esta dentro de un formulario, y bueno al seleccionarme en la hoja activa el filtro, solo que quisiera proteger la hoja con contraseña, en este ejemplo lo protege pero sin contraseña, ¿qué me falta para proteger la hoja con contraseña pero que si funcione el filtro?
1 respuesta
Prueba así:
Private Sub CommandButton3_Click()
Unload Me
Sheets("BOLETOS").Visible = True
Sheets("BOLETOS").Select
ActiveSheet.Unprotect Password:="jmp"
ActiveSheet.[A1].Select
If AutoFilterMode Then
Range("a1").AutoFilter
Else
'Range("a1").AutoFilter
Range("c1:r1").Select
ActiveSheet.Protect Password:="jmp", _
DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFiltering:=True
End If
End Sub
si gracias Dante Amor, pero, le comento lo siguiente, tengo un boton para ir a mi formulario y bueno lo que hace es en la hoja BOLETOS desactivar el filtro, como haria bueno al ir a la hoja BOLETOS volver a activarlo? y si la verdad funciona su macro, pero ese detalle me esta fallando que cuando es sin filtro lo habilite y bueno si esta con filtro se quede no mas asi.
Desde ya muchas gracias por su ayuda.
Saludos
Jesús
Sería así, si está activo el autofiltro que no haga nada:
Private Sub CommandButton3_Click()
Unload Me
Sheets("BOLETOS").Visible = True
Sheets("BOLETOS").Select
ActiveSheet.Unprotect Password:="jmp"
ActiveSheet.[A1].Select
If ActiveSheet.AutoFilterMode Then
Else
Range("a1").AutoFilter
Range("c1:r1").Select
ActiveSheet.Protect Password:="jmp", _
DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFiltering:=True
End If
End Subsal u dos
