Una tarea común que se realiza en las macros es bloquear y desbloquear diferentes celdas y objetos en un libro de trabajo. Esto se hace a menudo por razones de protección, de modo que los usuarios no puedan modificar las cosas sin darse cuenta. Si necesita desbloquear los gráficos que están en su libro de trabajo, puede hacerlo fácilmente si recuerda que, aunque los gráficos pueden considerarse objetos de dibujo, no los desbloquea como objetos de dibujo; desbloquea específicamente el objeto de gráfico.

Además, la forma de desbloquear un gráfico depende de si es una hoja de gráfico o un objeto de gráfico en una hoja de trabajo normal. El siguiente código, denominado ChartUnProtect, proporciona un ejemplo de cómo desproteger correctamente ambos tipos de gráficos.

Sub ChartUnProtect()

Dim wks As Worksheet     Dim cht As Chart     Dim chtObj As ChartObject     Dim PW As String     PW = "mypass"



'Unprotect all Chart sheets     For Each cht In ActiveWorkbook.Charts         Sheets(cht.Name).Unprotect password:=PW     Next

'Unlock all Chart objects on each worksheet     For Each wks In ActiveWorkbook.Worksheets         wks.Unprotect password:=PW         For Each chtObj In wks.ChartObjects             wks.DrawingObjects(chtObj.Name).Locked = False         Next         wks.Protect password:=PW     Next End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2264) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.