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 = TrueOpombe:
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?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
