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