Come aggiornare una tabella pivot su un foglio protetto?

Normalmente, la tabella pivot non viene aggiornata su un foglio protetto. In questo articolo, vi presenterò un codice VBA per aggiornare la tabella pivot da un foglio di lavoro protetto.

Aggiorna la tabella pivot su un foglio protetto con il codice VBA

Aggiorna la tabella pivot su un foglio protetto con il codice VBA

Per impostazione predefinita, non esiste un modo diretto per aggiornare una tabella pivot su un foglio protetto, ma, con il seguente codice VBA, puoi aggiornare rapidamente tutte le tabelle pivot del foglio di lavoro corrente quando i dati cambiano nella tua tabella originale.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Aggiorna la tabella pivot su un foglio protetto:

Sub RefreshAll()
'Updateby Extendoffice 20161109
    Dim xpt As PivotTable
    With ActiveSheet
        .Protect UserInterfaceOnly:=True
        For Each xpt In .PivotTables
            xpt.RefreshTable
        Next xpt
    End With
End Sub

3. Successivamente, premi il tasto F5 per eseguire questo codice; se i tuoi dati originali cambiano, tutte le tabelle pivot nel foglio attivo verranno aggiornate immediatamente.