Note: The other languages of the website are Google-translated. Back to English

Jak chránit kontingenční tabulku v aplikaci Excel?

Jak v aplikaci Excel můžeme chránit kontingenční tabulku, abychom zabránili ostatním uživatelům přetahovat pole nebo pokazit rozložení? V tomto článku budu hovořit o některých metodách ochrany kontingenční tabulky v listu.

Chraňte kontingenční tabulku pomocí kódu VBA

Chraňte kontingenční stůl, ale umožněte přístup k průřezu


šipka modrá pravá bublina Chraňte kontingenční tabulku pomocí kódu VBA

Následující kód VBA vám pomůže chránit kontingenční tabulku, udělejte to takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: ochrana kontingenční tabulky

Sub RestrictPivotTable()
'Updateby Extendoffice
Dim xpf As PivotField
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1)
  .EnableDrilldown = False
  .EnableFieldList = False
  .EnableFieldDialog = False
  .PivotCache.EnableRefresh = False
  For Each xpf In .PageFields
    With pf
      .DragToPage = False
      .DragToRow = False
      .DragToColumn = False
      .DragToData = False
      .DragToHide = False
    End With
  Next xpf
End With
Application.ScreenUpdating = False
    MsgBox "The pivot table has been protected!", vbInformation, "Kutools for Excel"
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene, že kontingenční tabulka byla chráněna, viz screenshot:

kontingenční tabulka ochrany dokumentu 1

Poznámky:

1. Tento kód zakáže mnoho funkcí v kontingenční tabulce, například zabrání uživatelům v přetahování některého z polí na jiné místo a zakáže seznam polí, nastavení polí, rozevírací seznam a funkci Obnovit.

2. Pokud je na aktivním listu více kontingenčních tabulek, použije se tento kód pouze na poslední kontingenční tabulku.


šipka modrá pravá bublina Chraňte kontingenční stůl, ale umožněte přístup k průřezu

Někdy možná budete chtít chránit kontingenční tabulku, ale umožníte přístup k průřezu pro použití funkce filtru, následující kroky vám mohou udělat laskavost.

1. Po vložení průřezu klikněte pravým tlačítkem na něj a vyberte Velikost a vlastnosti z kontextové nabídky viz screenshot:

kontingenční tabulka ochrany dokumentu 2

2. V Formátovat průřez podokno, klepněte na tlačítko Nemovitosti rozbalte možnosti a zrušte zaškrtnutí Zamčený možnost, viz screenshot:

kontingenční tabulka ochrany dokumentu 3

3. Poté zavřete podokno a klikněte na přezkoumání > Chraňte plech k ochraně tohoto listu, viz screenshot:

kontingenční tabulka ochrany dokumentu 4

4. Ve vyskočené Chraňte plech dialogové okno a poté zkontrolujte Vyberte odemčené buňky a Použijte kontingenční tabulku a kontingenční graf možnosti pouze v Povolit všem uživatelům tohoto listu seznamu a poté zadejte heslo a potvrďte ho, viz screenshot:

kontingenční tabulka ochrany dokumentu 5

5. Pak klikněte na tlačítko OK Tlačítko zavřete dialogy a nyní, když kliknete na zprávu kontingenční tabulky a pokusíte se ji změnit, nebude upravena, ale můžete použít funkci Kráječ podle potřeby.


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Makro nefunguje, pouze vyvolá chybu objektu
Tento komentář byl moderátorem webu minimalizován
Ahoj andrew,
Kód funguje dobře, po použití kódu se zobrazí okno s výzvou, které vám připomene, že kontingenční tabulka byla chráněna, a poté jej zavřete, nyní se při změně jakýchkoli údajů v kontingenční tabulce zobrazí okno s varovnou zprávou .
Tento komentář byl moderátorem webu minimalizován
Nefunguje. Získejte chybu běhu
Tento komentář byl moderátorem webu minimalizován
Pro každý xpf v .PageFields
S pf

а где "х" потеряли?))) должно же быть S xpf
Tento komentář byl moderátorem webu minimalizován
Děkuji za tento tip. Moje otázka zní, jak nyní změním kód a upravím kontingenční tabulku?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění