Kako ohraniti razširljivost tabele z vstavljanjem vrstice tabele v zaščiteni delovni list v Excelu?

Funkcija samodejnega razširjanja tabele bo izgubljena po zaščiti delovnega lista v Excelu. Na primer, na zaščitenem delovnem listu je tabela z imenom Table1. Ko vnesete kar koli v zadnjo vrstico, se tabela ne bo samodejno razširila in vključila novo vrstico. Ali obstaja metoda, s katero lahko tabelo razširimo tako, da v zaščiten delovni list vstavimo novo vrstico? Metoda v tem članku vam lahko pomaga, da jo dosežete.

Razširite tabelo tako, da v zaščiten delovni list s kodo VBA vstavite vrstico tabele

Razširite tabelo tako, da v zaščiten delovni list s kodo VBA vstavite vrstico tabele

Kot je prikazano spodaj na sliki zaslona, ​​je tabela z imenom Table1 na vašem delovnem listu in zadnji stolpec tabele stolpec s formulo. Zdaj morate zaščititi delovni list, da preprečite spreminjanje stolpca formule, vendar omogočite razširitev tabele z vstavitvijo nove vrstice in dodelitvijo novih podatkov v nove celice. Naredite naslednje.

1. klik Razvojni > Vstavi > Gumb (nadzor obrazca) vstaviti a Nadzor obrazca na delovni list.

2. V pojavnem oknu Dodeli makro pogovorno okno, kliknite na Novo gumb.

3. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA med spodaj in End Sub odstavkov v Koda okno.

Koda VBA: tabelo lahko razširite tako, da v zaščiten delovni list vstavite vrstico tabele

 '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

Opombe:

4. Pritisnite druga + Q tipke za zapiranje okna Microsoft Visual Basic for Applications.

5. V tabeli izberite celice, v katere želite dodeliti nove podatke, razen stolpca s formulo, nato pritisnite Ctrl + 1 tipke za odpiranje Oblikuj celice pogovorno okno. V Oblikuj celice pogovorno okno, počistite polje Zaklenjen in nato kliknite OK . Oglejte si posnetek zaslona:

6. Zdaj zaščitite svoj delovni list z geslom, ki ste ga določili v kodi VBA.

Od zdaj naprej, po kliku gumba za nadzor obrazca na zaščitenem delovnem listu, bo tabela razširljiva z vstavitvijo nove vrstice, kot je prikazano spodaj.

Opombe: lahko spremenite tabelo, razen stolpca s formulo na zaščitenem delovnem listu.

Sorodni članki:

• Kako se rezalnik vrtilne tabele premika s premikanjem delovnega lista v Excelu?
• Kako združiti celice in obdržati oblikovanje celic v Excelu?
• Kako odstraniti dvojnike, vendar obdržati prvi primerek v Excelu?