Bloquear o Desbloquear Slicers con Macro

[infesno_]

Buenas tardes estimados

Tengo un libro con más de 20 Slicers,  y quisiera saber si existe alguna macro pequeña que los pueda desbloquear todos o bien volverlos a bloquear.

Yo estaba creando una pero tengo que estar incluyendo el nombre de cada slicers.

Ejemplo:

    ActiveSheet.Shapes.Range(Array("Zona")).Select
    Selection.Locked = msoFalse
    Application.CommandBars("Format Object").Visible = False

 

Estaba intentando algo así como masivo que busque en todas las hojas, pero no hace nada jeje.

For Each slcr In ActiveWorkbook.SlicerCaches

Selection.Locked = msoFalse

 

Muchas gracias

 

Saludos,