Come mantenere una tabella espandibile inserendo una riga in un foglio protetto di Excel?
In Excel, quando si protegge un foglio di lavoro, la funzionalità di espansione automatica delle tabelle viene spesso disabilitata. Ad esempio, se si ha una tabella denominata Tabella1 e si tenta di aggiungere dati sotto l’ultima riga in un foglio protetto, la tabella non si espande automaticamente per includere la nuova riga. Tuttavia, esiste un modo per mantenere la tabella espandibile anche con il foglio protetto. Questo tutorial illustra i passaggi necessari per abilitare l’espansione automatica della tabella senza rinunciare alla protezione del foglio.
Mantieni la tabella espandibile inserendo una riga della tabella in un foglio protetto con codice VBA
Come mostrato nello screenshot seguente, nel foglio di lavoro è presente una tabella denominata Tabella1 e la Ultima colonna della tabella è una colonna con formule. Ora è necessario proteggere il foglio per evitare modifiche alla colonna con formule, consentendo tuttavia l’espansione della tabella tramite l’inserimento di una nuova riga e l’immissione di nuovi dati nelle nuove celle. Procedere come segue.
1. Fare clic su Sviluppo > Inserisci > Pulsante (controllo modulo) per inserire un controllo modulo nel foglio di lavoro.
2. Nella finestra di dialogo Assegna macro visualizzata, fai clic sul pulsante Nuovo.
3. Nella finestra Microsoft Visual Basic, Applications, copia e incolla il codice VBA riportato di seguito tra le righe Sub e End Sub nella finestra Codice.
Codice VBA: Mantenere la tabella espandibile inserendo una riga della tabella in un foglio 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 = TrueNote:
4. Premere i tasti Alt+Q per chiudere la finestra Microsoft Visual Basic, Applications.
5. Seleziona le celle della tabella in cui desideri inserire nuovi dati, escludendo la colonna con le formule, quindi premi Ctrl+1 per aprire la finestra di dialogo Imposta formato cella. Nella finestra di dialogo Imposta formato cella, deseleziona la casella Bloccata, quindi fai clic sul pulsante OK. Vedere lo screenshot:
6. Ora proteggi il foglio di lavoro con la password specificata nel codice VBA.
D’ora in poi, dopo aver fatto clic sul pulsante di controllo modulo nel foglio protetto, sarà possibile espandere la tabella inserendo una nuova riga, come illustrato nello screenshot seguente.
Nota: è possibile modificare la tabella, tranne la colonna contenente formule, nel foglio protetto.
Articoli correlati:
- Come fare in modo che il filtro Slicer della Tabella pivot si sposti automaticamente durante lo scorrimento del foglio di lavoro in Excel?
- Come unire le celle in Excel mantenendo la formattazione originale?
- Come si rimuovono i duplicati in Excel mantenendo solo la prima occorrenza?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi