Proteger hoja con Tabla Dinámica

hola, Mbaeijhapa !

... posibilidad de Proteger una hoja donde hay una Tabla Dinamica y que permita la actualizacionn de esta Tabla.

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:="EstaClave"
Me.PivotTables(1).PivotCache.Refresh
Me.Protect Password:="EstaClave", _
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.

Hola Héctor Miguel:
Al ejecutar el código que me envias (a través del commandbutton) me dá un
error de compilación "No se encontró el argumento con nombre" resaltando la
instrucción de la última linea "AllowUsingPivotTables:".
Te podrías fijar ?
Gracias
Mbaeijhapa.


"Héctor Miguel" escribió:

hola, Mbaeijhapa !

> ... posibilidad de Proteger una hoja donde hay una Tabla Dinamica y que permita la actualizacionn de esta Tabla.

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:="EstaClave"
Me.PivotTables(1).PivotCache.Refresh
Me.Protect Password:="EstaClave", _
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.

hola, Mbaeijhapa !

... me da un error de compilacion "No se encontro el argumento con nombre"
resaltando la instruccion... "AllowUsingPivotTables:"

perdon... supuse que estabas usando excel xp/2003
si la version de excel es 'anterior'... elimina esa linea
[puedes 'vivir sin ella'] :))

saludos,
hector.

Hola Héctor Miguel,

¡¡¡¡¡¡¡¡ Funcionó !!!!!!!!

Muchas gracias, y perdona por no haberme dado cuenta del error.
Mbaeijha.



"Héctor Miguel" escribió:

hola, Mbaeijhapa !

> ... me da un error de compilacion "No se encontro el argumento con nombre"
> resaltando la instruccion... "AllowUsingPivotTables:"

perdon... supuse que estabas usando excel xp/2003
si la version de excel es 'anterior'... elimina esa linea
[puedes 'vivir sin ella'] :))

saludos,
hector.

hola, Mbaeijhapa !

... Funciono... gracias [...]

gracias a ti [por el 'feed-back'] ;)

saludos,
hector.