Tabla dinámiza en hoja protegida

hola, Miguel !

... como puedo ejecutar la actualizacion de una tabla dinamica en una hoja protegida.
El codigo que utilizo para la proteccion de distintas hojas del libro, es el siguiente:
Private Sub Workbook_Open()
Sheets("Inicio").Select
Range("fecha").Value = Date
Dim Hoja As Worksheet
For Each Hoja In Worksheets(Array("Inicio", "Formulario", "Estadistica", "Tabla", "Estadistica_1", "Tabla_1", "Listas"))
Hoja.Protect Password:="123", UserInterfaceOnly:=True
Next
End Sub

asumiendo que usas excel xp/2002 en adelante...
puedes incrustar un commandbutton (barra: cuadro de controles) y asignarle la siguiente macro:
en el modulo de codigo de 'esa' hoja ==Private Sub ComandButton1_Click()
Me.Unprotect Password:="123"
Me.PivotTables(1).PivotCache.Refresh
Me.Protect Password:="123", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowUsingPivotTables:=True
End Sub

o si fuera el caso de varias hojas con TD, mueve el codigo a un modulo normal y usa botones de: formulario
y cambia la palabra "Me" por -> ActiveSheet (tendrias que usar la misma clave para todas... o una matriz)

si cualquier duda... comentas?
saludos,
hector.