Macro que permita filtrar en una hoja protegida

Actualmente utilizo un macro que me registra hora y bloquea las celdas. Necesito que el documento me permita filtrar pero al estar bloqueado no me permite. En la columna que deseo filtrar se van anadiendo datos de un data validation pero no es permitido el filtrar luego del seleccionar la data del validation.

El codigo que utilizo es el siguiente.

f Not isect Is Nothing Then

If isect.Value <> "" Then

Me.Unprotect Password:="123"

If isect.Offset(0, 7) = "" Then isect.Offset(0, 7).Value = tiempo

Me.Protect Password:="123"

End If

End If

Set isect = Application.Intersect(Target, Range("l5:l100"))

If Not isect Is Nothing Then

If isect.Value <> "" Then

Me.Unprotect Password:="123"

If isect.Offset(0, -3) = "" Then isect.Offset(0, -3).Value = tiempo

Me.Protect Password:="123"

End If

End If

Set isect = Application.Intersect(Target, Range("l5:l100"))

If Not isect Is Nothing Then

If isect.Value = "SF" Then

Me.Unprotect Password:="123"

isect.Offset(0, -3).Value = ""

isect.Offset(0, -4).Value = ""

Me.Protect Password:="123"

End If

End If

Set isect = Application.Intersect(Target, Range("l5:l100"))

If Not isect Is Nothing Then

If isect.Value = "ERROR" Then

Me.Unprotect Password:="123"

isect.Offset(0, -3).Value = ""

isect.Offset(0, -4).Value = ""

Me.Protect Password:="123"

End If

End If

End Sub

Respuesta

Le comparto un código que yo utilizo en mis archivos; en caso de tener tablas dinámicas, también funciona:

La sentencia se debe copiar en ThisWorkBook del proyecto

Private Sub Workbook_Open()
With Sheets("NOMBRE DE LA HOJA PROTEGIDA")
.EnablePivotTable = True
.Protect "CONTRASEÑA DE LA HOJA PROTEGIDA", UserInterfaceOnly:=True
End With

End Sub

Saludos!!! Muchas gracias. Utilice lo mencionado pero continuo con el problema no se activa el poder filtrar al momento de seleccionar una data del validation.

Pruebe con el código con la siguiente modificación:

Private Sub Workbook_Open()

With Sheets("NOMBRE DE LA HOJA PROTEGIDA")
.EnablePivotTable = True

.EnableAutoFilter = True
.Protect "CONTRASEÑA DE LA HOJA PROTEGIDA", UserInterfaceOnly:=True
End With

End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas