Skrytí a odkrytí listů v aplikaci Excel je jednoduchý úkol.
Můžete skrýt list a uživatel by ho neviděl, když otevře sešit. Pokud však chtějí, mohou list snadno zobrazit (jak uvidíme dále v tomto kurzu).
Ale co když nechcete, aby mohli zobrazit pracovní listy.
Chcete -li to provést, musíte provést několik dalších kroků, abyste se ujistili, že jsou pracovní listy „velmi skryté“ (také popsané dále v tomto tutoriálu).
Podívejme se, jak skrýt list v aplikaci Excel, aby jej bylo možné snadno zobrazit nebo skrýt.
Pravidelný způsob skrývání listu v aplikaci Excel
K skrytí listu v Excelu můžete použít níže uvedené kroky:
- Klepněte pravým tlačítkem na kartu listu, kterou chcete skrýt.
- Klikněte na Skrýt.
To by okamžitě skrylo list a v sešitu ho neuvidíte. Toto nastavení zůstane nedotčeno, když sešit uložíte a znovu otevřete nebo ho odešlete jinému.
PROFESIONÁLNÍ TIP: Chcete -li skrýt více listů najednou, podržte klávesu Control a poté postupně vyberte karty listů (které chcete skrýt). Po výběru klikněte pravým tlačítkem na některou z vybraných karet a klikněte na „Skrýt“. Tím se skryjí všechny listy najednou.
Přestože tato metoda skrývá list, je velmi snadné tyto pracovní listy také odkrýt.
Zde jsou kroky k odkrytí listu v aplikaci Excel:
- Klikněte pravým tlačítkem na některou ze stávajících karet.
- Klikněte na Odkrýt.
- V dialogovém okně Odkrýt vyberte list, který chcete odkrýt.
- Klikněte na OK.
Díky tomu bude list okamžitě viditelný v sešitu.
Najednou můžete zobrazit pouze jeden list. Chcete -li zobrazit více listů, je nutné opakovat výše uvedené kroky, abyste odkryli každý list. Alternativně můžete použít kód makra k odkrytí všech listů najednou.
Přestože tato metoda ve většině případů funguje, ve skutečnosti nepomůže, pokud chcete listy skrýt, aby je váš klient nebo kolega (nebo kdokoli, s kým sešit sdílíte) nemohl zobrazit a zobrazit.
Stačí kliknout pravým tlačítkem myši na některou z karet a uvidí, co jsou všechny pracovní listy skryté (a snadno je zobrazit).
Pojďme se tedy podívat, jak lze pracovní list skutečně skrýt, aby jej nebylo možné odkrýt (alespoň ne tak snadno).
Skrýt pracovní list, aby jej nebylo možné skrýt
Zde jsou kroky ke skrytí listu, aby jej nebylo možné zobrazit:
- Klepněte pravým tlačítkem na libovolnou kartu listu.
- Klikněte na Zobrazit kód.
- V editoru VB v Průzkumníku projektů v editoru VB vyberte list, který chcete skrýt.
- Když je list vybrán, klikněte na panelu nástrojů na ikonu Vlastnosti (nebo použijte klávesovou zkratku F4).
- V podokně Vlastnosti, které se otevře, vyberte rozevírací seznam před možností „Viditelné“.
- Vyberte „2 - xlSheetVeryHidden“.
- Zavřete editor VB.
Nyní si všimnete, že list je skrytý.
Když na některou z karet kliknete pravým tlačítkem, neuvidíte ji v seznamu skrytých listů, které můžete odkrýt.
Je tato metoda spolehlivá? - NE!
Tato metoda funguje tak, že uživatel nevidí skrytý list v seznamu listů, které může zobrazit.
To ale neznamená, že list nelze odkrýt.
Odkryjte list, který byl „velmi skrytý“
Zde jsou kroky k odkrytí listu, který byl „velmi skrytý“:
- Klikněte pravým tlačítkem na některou ze stávajících karet.
- Klikněte na Zobrazit kód.
- V editoru VB klikněte na název listu, který chcete odkrýt (bude k dispozici v průzkumníku projektů jako součást objektů sešitu).
- Pokud podokno vlastností není viditelné, klikněte na panelu nástrojů na ikonu Vlastnosti (nebo použijte klávesovou zkratku F4).
- V podokně Vlastnosti změňte vlastnost Visible z „2 - xlSheetVeryHidden“ na „-1 - xlSheetVisible“.
- Zavřete editor VB.
Tím se odkryje list a bude viditelný v sešitu.
Skrytí/odkrytí listů pomocí VBA
Pokud máte spoustu pracovních listů, které potřebujete skrýt/zobrazit, může vám to zabrat hodně času.
Pomocí jednoduchého kódu VBA lze tento úkol zautomatizovat.
Skrýt všechny listy pomocí VBA
Níže je kód VBA, který skryje všechny listy kromě aktuálního/aktivního listu:
`` Toto makro skryje veškerý list kromě aktivního listu Sub HideAllExceptActiveSheet () Dim ws As Worksheet for each ws In ThisWorkbook.Worksheets If ws.Name ActiveSheet.Name Then ws.Visible = xlSheetHidden Next ws End Sub
Výše uvedený kód skryje celý list kromě aktivního listu. Bude to však skrývat, aby je bylo možné snadno odkrýt (všimněte si, že vlastnost ws.Visible je nastavena na xlSheetHidden).
Pokud chcete listy skrýt, aby je nebylo možné odkrýt, použijte níže uvedený kód:
`` Toto makro skryje všechny listy kromě aktivního listu Sub HideAllExcetActiveSheet () Dim ws jako list pro každé ws v ThisWorkbook.Worksheets If ws.Name ActiveSheet.Name Then ws.Visible = xlSheetVeryHidden Next ws End Sub
Jedinou změnou, kterou jsme zde udělali, je provedení ws.Viditelné vlastnictví xlSheetVeryHidden.
Rozbalte všechny listy pomocí VBA
Níže je kód, který odkryje všechny skryté listy v sešitu.
'Tento kód odkryje všechny listy v sešitu Sub UnhideAllWoksheets () Dim ws As Worksheet For each ws In ThisWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub
Pomocí tohoto kódu jednoduše projdeme každý list jeden po druhém a vytvoříme ws.Viditelné majetek rovný xlSheetVisible.
Kam vložit kód?
Níže jsou uvedeny kroky k vložení kódu do editoru VB:
- Klikněte na kartu Vývojář.
- Klikněte na ikonu Visual Basic (nebo použijte klávesovou zkratku - ALT + F11).
- V editoru VB klikněte pravým tlačítkem na libovolný objekt sešitu.
- Přejděte na Vložit a vyberte Modul. Tím se do sešitu vloží nový modul.
- Dvakrát klikněte na ikonu modulu a zkopírujte a vložte kód do okna kódu modulu.
Nyní můžete makro přiřadit k tvaru nebo jej spustit na kartě Vývojář. Další informace o různých způsobech spuštění makra v aplikaci Excel si můžete přečíst zde.
U každého kódu nemusíte vložit nový modul. Můžete mít jeden jediný modul a mít v něm více kódů maker VBA.
