Grafici Sblocco

Un compito comune fatto in macro è quello di bloccare e sbloccare le cellule e diversi oggetti in una cartella di lavoro. Questo spesso è fatto per motivi di protezione, in modo che le cose non possono essere modificate involontariamente dagli utenti. Se è necessario per sbloccare i grafici che si trovano nella cartella di lavoro, si può facilmente farlo se si ricorda che, anche se i grafici possono essere considerati oggetti di disegno, non li sblocca come oggetti di disegno - che specificamente sbloccare l'oggetto grafico.

Inoltre, come si sblocca un grafico dipende dal fatto che si tratta di un foglio grafico o un oggetto grafico su un foglio di lavoro regolare. Il seguente codice, nome ChartUnProtect, fornisce un esempio di come rimuovere la protezione con successo entrambi i tipi di grafici.

Sub ChartUnProtect ()
Wks Dim As Foglio
Dim cht Come Grafico
Dim chtObj Come ChartObject
Dim PW As String
PW = "mypass"

'Sproteggere tutti i fogli Grafico
Per ogni cht In ActiveWorkbook.Charts
Sheets (cht.Name) .Unprotect password = PW
Il Prossimo

'Sblocca tutti gli oggetti Grafico su ogni foglio di lavoro
Per Ogni wks In ActiveWorkbook.Worksheets
wks.Unprotect Password: = PW
Per ogni chtObj In wks.ChartObjects
wks.DrawingObjects (chtObj.Name) .Locked = False
Il Prossimo
wks.Protect Password: = PW
Il Prossimo
End Sub

ExcelTips è la vostra fonte per la formazione Microsoft Excel conveniente. Questo suggerimento (2264) si applica a Microsoft Excel 97, 2000, 2002, e 2003.