Come mantenere la tabella espandibile inserendo la riga della tabella in un foglio di lavoro protetto in Excel?
La funzione di espansione automatica della tabella andrà persa dopo aver protetto il foglio di lavoro in Excel. Ad esempio, è presente una tabella denominata Table1 nel foglio di lavoro protetto, quando si digita qualcosa sotto l'ultima riga, la tabella non si espanderà automaticamente per includere la nuova riga. Esiste un metodo per mantenere la tabella espandibile inserendo una nuova riga in un foglio di lavoro protetto? Il metodo in questo articolo può aiutarti a raggiungerlo.
Mantieni la tabella espandibile inserendo la riga della tabella in un foglio di lavoro protetto con codice VBA
Come mostrato nell'immagine sottostante, una tabella denominata Table1 nel foglio di lavoro e l'ultima colonna della tabella è una colonna formula. Ora è necessario proteggere il foglio di lavoro per evitare che la colonna della formula cambi, ma consentire di espandere la tabella inserendo una nuova riga e assegnare nuovi dati nelle nuove celle. Si prega di fare quanto segue.
1. Clic Costruttori > inserire > Pulsante (controllo modulo) per inserire un file Controllo del modulo pulsante nel tuo foglio di lavoro.
2. Nel spuntare Assegna macro finestra di dialogo, fare clic su New pulsante.
3. Nel Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice VBA sottostante tra i file Sub ed End Sub paragrafi in Code finestra.
Codice VBA: mantieni la tabella espandibile inserendo la 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 = TrueNote:
4. premi il altro + Q tasti per chiudere la finestra di Microsoft Visual Basic, Applications Edition.
5. Selezionare le celle della tabella a cui assegnare i nuovi dati tranne la colonna della formula, quindi premere il tasto Ctrl + 1 chiavi per aprire il formato celle la finestra di dialogo. Nel formato celle finestra di dialogo, deseleziona il file Bloccato casella, quindi fare clic su OK pulsante. Vedi screenshot:
6. Ora proteggi il tuo foglio di lavoro con la password che hai specificato nel codice VBA.
D'ora in poi, dopo aver fatto clic sul pulsante Controllo modulo nel foglio di lavoro protetto, la tabella sarà espandibile inserendo una nuova riga come mostrato nell'immagine sottostante.
Note:: puoi modificare la tabella tranne la colonna formula nel foglio di lavoro protetto.
Articoli correlati:
- Come mantenere in movimento l'affettatrice della tabella pivot con lo scorrimento del foglio di lavoro in Excel?
- Come combinare le celle e mantenere la formattazione della cella in Excel?
- Come rimuovere i duplicati ma mantenere la prima istanza in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
