Un’attività comune eseguita nelle macro è bloccare e sbloccare celle e oggetti diversi in una cartella di lavoro. Questo viene spesso fatto per motivi di protezione, in modo che le cose non possano essere modificate inavvertitamente dagli utenti. Se hai bisogno di sbloccare i grafici che si trovano nella tua cartella di lavoro, puoi farlo facilmente se ricordi che anche se i grafici possono essere considerati oggetti di disegno, non li sblocchi come oggetti di disegno: sblocchi specificamente l’oggetto grafico.

Inoltre, la modalità di sblocco di un grafico dipende dal fatto che si tratti di un foglio grafico o di un oggetto grafico in un normale foglio di lavoro. Il codice seguente, denominato ChartUnProtect, fornisce un esempio di come rimuovere correttamente la protezione di entrambi i tipi di grafici.

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: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2264) si applica a Microsoft Excel 97, 2000, 2002 e 2003.