Hola macro protege hojas dejar desproteger autofiltros
Hola, tengo la siguiente macro
Private Sub CommandButton1_Click()
Dim i As Integer, HojaActual As Integer
Application.ScreenUpdating = False
HojaActual = ActiveSheet.Index 'es para después restaurar
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Unprotect "cioca"
Next i
Sheets(HojaActual).Select
Application.ScreenUpdating = True
ThisWorkbook.RefreshAll
Application.ScreenUpdating = False
HojaActual = ActiveSheet.Index 'es para después restaurar
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protect "cioca"
Next i
Sheets(HojaActual).Select
Application.ScreenUpdating = True
End Sub
La cual desprotege todas las hojas, actualiza las tablas dinámicas en cada hoja y luego protege todas las hojas, necesito que después de proteger las hojas deje libre la opción de hacer autofiltros.
Me urge la solución gracias.!
En primer lugar no olvides indicar tu versión Excel considerando que puede haber cambios en el código según la versión.
Aquí vá un ejemplo de protección permitiendo Autofiltros:
ActiveSheet.Protect "tu_clave", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Sdos y no olvides finalizar la consulta.
