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.!
1 respuesta
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.
