Come mantenere la tabella espandibile inserendo una riga della tabella in un foglio di lavoro protetto in Excel?

In Excel, quando si protegge un foglio di lavoro, la funzionalità di espansione automatica delle tabelle viene spesso disabilitata. Ad esempio, se hai una tabella chiamata Tabella1 e provi ad aggiungere dati sotto l'ultima riga in un foglio di lavoro protetto, la tabella non si espanderà automaticamente per includere la nuova riga. Tuttavia, c'è un modo per mantenere la tua tabella espandibile anche in un foglio di lavoro protetto. Questo tutorial ti guiderà attraverso i passaggi per abilitare l'espansione automatica della tua tabella mentre il foglio di lavoro rimane protetto.

Mantieni la tabella espandibile inserendo una riga della tabella in un foglio di lavoro protetto con codice VBA

Mantieni la tabella espandibile inserendo una riga della tabella in un foglio di lavoro protetto con codice VBA

Come mostrato nello screenshot sottostante, una tabella chiamata Tabella1 nel tuo foglio di lavoro, e l'ultima colonna della tabella è una colonna di formule. Ora devi proteggere il foglio di lavoro per impedire che la colonna delle formule venga modificata, ma consentire di espandere la tabella inserendo una nuova riga e assegnando nuovi dati alle nuove celle. Procedi come segue.

1. Clicca su Sviluppatore > Inserisci > Pulsante (Controllo Modulo) per inserire un pulsante del Controllo Modulo nel tuo foglio di lavoro.

2. Nella finestra di dialogo Assegna Macro che appare, clicca sul pulsante Nuovo.

3. Nella finestra Microsoft Visual Basic for Applications, copia e incolla il seguente codice VBA tra i paragrafi Sub ed End Sub nella finestra del Codice.

Codice VBA: Mantieni la tabella espandibile inserendo una riga della tabella in un foglio di lavoro protetto

'Update by ExtendOffice 20220826
    Dim xRg, tableRg As Range
    Dim xRowCount As Integer
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr

    Set tableRg = ActiveSheet.ListObjects("Table4").Range
    xRowCount = tableRg.Rows.Count
    
    Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault

    ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=False, _
                    AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                    AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                    AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                    AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                    AllowSorting:=True, AllowFiltering:=True, _
                    AllowUsingPivotTables:=True
    Application.ScreenUpdating = True

Note:

4. Premi i tasti Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications.

5. Seleziona le celle nella tabella a cui devi assegnare nuovi dati, tranne la colonna delle formule, quindi premi i tasti Ctrl + 1 per aprire la finestra di dialogo Formato celle. Nella finestra di dialogo Formato celle, deseleziona la casella Bloccata, quindi clicca sul pulsante OK. Vedi screenshot:

6. Ora proteggi il tuo foglio di lavoro con la password specificata nel codice VBA.

Da ora in poi, dopo aver cliccato sul pulsante del Controllo Modulo nel tuo foglio di lavoro protetto, la tabella sarà espandibile inserendo una nuova riga come mostrato nello screenshot sottostante.

Nota: puoi modificare la tabella tranne la colonna delle formule nel foglio di lavoro protetto.

Articoli correlati:

• Come mantenere lo slicer della Tabella pivot in movimento con lo scorrimento del foglio di lavoro in Excel?
• Come combinare celle e mantenere la formattazione delle celle in Excel?
• Come rimuovere i duplicati ma mantenere la prima istanza in Excel?