Jak zachovat rozšiřitelnost tabulky vložením řádku tabulky do chráněného listu v aplikaci Excel?
Funkce automatického rozbalení tabulky bude ztracena po ochraně listu v aplikaci Excel. Například v chráněném listu je tabulka s názvem Table1, když pod poslední řádek napíšete cokoli, tabulka se automaticky nerozbalí tak, aby zahrnovala nový řádek. Existuje metoda, jak udržet tabulku rozšiřitelnou vložením nového řádku do chráněného listu? K dosažení tohoto cíle vám může pomoci metoda v tomto článku.
Udržujte tabulku rozšiřitelnou vložením řádku tabulky do chráněného listu s kódem VBA
Udržujte tabulku rozšiřitelnou vložením řádku tabulky do chráněného listu s kódem VBA
Jak je uvedeno níže, snímek obrazovky s názvem Table1 v listu a posledním sloupcem tabulky je sloupec vzorce. Nyní musíte chránit list, aby se zabránilo změně sloupce vzorce, ale umožnit rozbalení tabulky vložením nového řádku a přiřadit nová data do nových buněk. Postupujte prosím následovně.
1. cvaknutí Vývojka > Vložit > Tlačítko (ovládání formuláře) vložit a Kontrola formuláře tlačítko do listu.
2. Ve vyskakovacím okně Přiřadit makro dialogové okno, klepněte na tlačítko Nový .
3. V Microsoft Visual Basic pro aplikace Okno, zkopírujte a vložte níže uvedený kód VBA mezi V a End Sub odstavce v Kód okno.
Kód VBA: Udržujte tabulku rozšiřitelnou vložením řádku tabulky do chráněného listu
'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
Poznámky:
4. zmáčkni Další + Q klávesy pro zavření okna Microsoft Visual Basic pro aplikace.
5. Vyberte buňky v tabulce, ke kterým chcete přiřadit nová data, kromě sloupce vzorce, a stiskněte tlačítko Ctrl + 1 klávesy pro otevření Formát buněk dialogové okno. V Formát buněk zrušte zaškrtnutí políčka Zamčený a poté klikněte na OK knoflík. Viz screenshot:
6. Nyní svůj list chráňte heslem, které jste zadali v kódu VBA.
Od této chvíle bude tabulka po kliknutí na tlačítko Ovládání formuláře v chráněném listu rozbalitelná vložením nového řádku, jak je ukázáno níže.
Poznámka: můžete upravit tabulku kromě sloupce vzorců v chráněném listu.
Související články:
- Jak udržet posuvník kontingenční tabulky v pohybu pomocí posouvání listu v aplikaci Excel?
- Jak kombinovat buňky a zachovat formátování buněk v aplikaci Excel?
- Jak odstranit duplikáty, ale zachovat první instanci v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!