Operar con ficheros y hojas protegidos

[adiaz1959]

Estoy tratando de crear una macro sencilla que opere dentro de un libro que está protegido y que opere con hojas protegidas. La respuesta que obtengo es "error 1004". Si desprotejo el libro y las hojas, funciona sin problemas. ¿Hay alguna posibilidad de que trabaje de la forma que pretendo? Gracias.

[R0CI0]

Claro que si.

Adjunta un ejemplo, segun las normas del foro , para poder ayudarte

[adiaz1959]

Sub ACTUALIZACIÓNDEDATOS()

'

' ACTUALIZACIÓNDEDATOS Macro

' Actualiza todas las pivot tables y genera todos los cuadros y gráficos de información volviendo al estado primitivo de protección de hojas y fichero.

'

'

ActiveWorkbook.Unprotect

Sheets("INSTRUCCIONES").Select

Sheets("PIVOT TABLE").Visible = True

ActiveWindow.LargeScroll ToRight:=-2

Range("A7").Select

ActiveSheet.PivotTables("Tabla dinámica2").PivotCache.Refresh

Range("E7").Select

ActiveSheet.PivotTables("Tabla dinámica3").PivotCache.Refresh

Range("J7").Select

ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh

ActiveWindow.SmallScroll ToRight:=6

Range("N7").Select

ActiveSheet.PivotTables("Tabla dinámica4").PivotCache.Refresh

ActiveWindow.SmallScroll ToRight:=6

Range("R3").Select

ActiveSheet.PivotTables("Tabla dinámica5").PivotCache.Refresh

Range("U3").Select

ActiveSheet.PivotTables("Tabla dinámica6").PivotCache.Refresh

Sheets("PIVOT TABLE").Select

ActiveWindow.SelectedSheets.Visible = False

ActiveWorkbook.Protect Structure:=True, Windows:=False

End Sub

[Invitado jluis]

@adiaz1959

[note]Las fórmulas o códigos es necesario envolverlos con etiquetas tal y como se indica en las Normas del Foro en su punto 2.19, más detalles en el siguiente enlace.

Envolver fórmulas y códigos con etiquetas en los mensajes[/note]