Proteccion de hojas td

HOLA EXPERTOS
Mi problema es el siguiente, he utilizado una macro para proteger una hoja con tablas dinamicas pero que me permita trabajar en ellas y funciona, pero quisiera que con un solo boton me actuara sobre el resto de hojas que contienes TD.
La macro el la siguiente:
sub proteger
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="EstaClave"
ActiveSheet.PivotTables(1).PivotCache.Refresh
ActiveSheet.Protect Password:="EstaClave", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowUsingPivotTables:=True
Application.ScreenUpdating = True
End Sub
o bien que funcione para todas automaticamente desde el arranque y que permita actualizar las tablas con otra macro que tengo para ello
muchas gracias y un saludo

{"Lat":39.9097362345372,"Lng":-4.21875}