Come sbloccare i grafici protetti

Un’attività comune eseguita nelle macro è bloccare e sbloccare diverse celle e oggetti 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 devi sbloccare i grafici presenti nella cartella di lavoro, puoi farlo facilmente se ricordi che i grafici sono dei veri e propri oggetti nella gerarchia del modello a oggetti di Excel.

Inoltre, la modalità di sblocco di un grafico dipende da quale tipo di grafico sia: un foglio grafico o un oggetto grafico incorporato 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 = "MiaPass"
    'Rimuove la protezione da tutti i fogli grafici
    For Each cht In ActiveWorkbook.Charts
        Sheets(cht.Name).Unprotect Password:=PW
    Next
    'Sblocca tutti gli oggetti "grafico" su ciascun foglio di lavoro
    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

 

 

 

Tags: , , , , , , , , , , , ,

Ti è stato utile?