Proteger hoja con Tabla Dinámica

Hola estimados amigos.
Tengo algunas intrucciones de visual Basic en una hoja electronica; esta
hoja fue creada con office 2002. Estoy tratando de cambiar las instrucciones
para office 2000.

Intrucciones en office 2002.

Sheet15.Activate
ActiveSheet.Unprotect Password:="ventas"
Range("a5").Select
ActiveSheet.PivotTables("PivotTable2").RefreshTable
ActiveSheet.Protect
DrawingObjects:=True, Contents:=True, Scenarios:=True,
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True,
Password:="ventas"

Las propiedades AllowSorting, AllowFiltering y AllowUsingPivotTables no
estan dentro de ActiveSheet.protec para office 2000.

De que otra forma lo podria hacer?

Gracias por su ayuda

Mario G.


"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.

Estimados Amigos.

Tengo instrucciones de visual basic en un hoja electronica, la cual fue
creada en office 2002. Yo tengo instalado office 2000.

Sheet15.Activate
ActiveSheet.Unprotect Password:="ventas"
Range("a5").Select
ActiveSheet.PivotTables("PivotTable2").RefreshTable
ActiveSheet.Protect
DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True,
AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="ventas"

Revisando en office 2000 para el ActiveSheet.Protec solamente puedo poner
las propiedades siguientes:

ActiveSheet.Protec
Password:="ventas"
DrawingObjects:=True, Contents:=True, Scenarios:=True

De que otra forma lo puedo hacer?

Gracias



Mario G.


"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.