Sblocco grafici (Microsoft Excel)
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.