Výukový kurz vysvětluje, jak odkrýt listy v aplikacích Excel 2016, 2013, 2010 a nižších. Dozvíte se, jak rychle odkrýt list kliknutím pravým tlačítkem myši a jak odkrýt všechny listy najednou pomocí kódu VBA.

Představte si následující situaci: otevřete pracovní list a zjistíte, že některé vzorce odkazují na jiný list. Podíváte se na karty listů, ale odkazovaný list tam není! Zkusíte vytvořit nový list se stejným názvem, ale Excel vám řekne, že již existuje. Co to všechno znamená? Jednoduše to, že pracovní list je skrytý. Jak zobrazit skryté listy v aplikaci Excel? Je zřejmé, že je musíte skrýt. To lze provést taktoručně pomocí funkce Excelu Odstranit nebo automaticky pomocí VBA. V tomto výukovém kurzu se naučíte obě metody.

Jak zrušit skrytí listů v aplikaci Excel

Pokud chcete zobrazit jen jeden nebo dva skryté listy, zde je návod, jak je rychle odkrýt:

1. V sešitě aplikace Excel klikněte pravým tlačítkem myši na libovolnou kartu listu a vyberte možnost Odstranit ... z kontextové nabídky.
2. V Odstranit vyberte skrytý list, který chcete zobrazit, a klikněte na tlačítko OK (nebo dvakrát klikněte na název listu). Hotovo!

Kromě kontextové nabídky pravého tlačítka myši je k dispozici také Odstranit dialogové okno lze otevřít z pásu karet:

• V aplikaci Excel 2003 a dřívějších verzích klikněte na tlačítko Formát a pak klikněte na tlačítko List > Odstranit .
• V aplikacích Excel 2016, Excel 2013, Excel 2010 a Excel 2007 přejděte na stránku Home karta> Buňky a klikněte na Formát Pod Viditelnost , ukazují na Skrýt &; Odkrýt a poté klikněte na tlačítko Odkrýt list ...

Poznámka. Excel Odstranit Možnost umožňuje vybrat vždy pouze jeden list. Chcete-li odkrýt více listů, musíte výše uvedené kroky opakovat pro každý list zvlášť nebo můžete odkrýt všechny listy najednou pomocí níže uvedených maker.

Jak zrušit skrytí listů v aplikaci Excel pomocí VBA

V situacích, kdy máte více skrytých listů, může být jejich postupné odkrývání časově velmi náročné, zejména pokud chcete odkrýt všechny listy v sešitě. Naštěstí můžete tento proces automatizovat pomocí některého z následujících maker.

Jak zrušit skrytí všech listů v aplikaci Excel

Toto malé makro zviditelní všechny skryté listy v aktivním sešitě najednou, aniž by vás rušilo jakýmikoli oznámeními.

Sub Unhide_All_Sheets() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Visible = xlSheetVisible Next wks End Sub

Zobrazit všechny skryté listy a zobrazit jejich počet

Stejně jako výše uvedené makro i toto makro zobrazí všechny skryté listy v sešitě. Rozdíl je v tom, že po dokončení zobrazí dialogové okno informující uživatele o počtu skrytých listů:

Sub Unhide_All_Sheets_Count() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If wks.Visible xlSheetVisible Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count> 0 Then MsgBox count & " worksheets have been unhidden." , vbOKOnly, "Unhiding worksheets" Else MsgBox "No hidden worksheets have been found." , vbOKOnly,"Zrušení skrývání pracovních listů" End If End Sub

Skrytí více vybraných listů

Pokud nechcete odkrýt všechny listy najednou, ale pouze ty, které uživatel výslovně odsouhlasí jako viditelné, pak se makro zeptá na každý skrytý list zvlášť, například takto:

Sub Unhide_Selected_Sheets() Dim wks As Worksheet Dim MsgResult As VbMsgBoxResult For Each wks In ActiveWorkbook.Worksheets If wks.Visible = xlSheetHidden Then MsgResult = MsgBox( "Unhide sheet " & wks.Name & "?" , vbYesNo, "Unhiding worksheets" ) If MsgResult = vbYes Then wks.Visible = xlSheetVisible End If Next End Sub

Skrytí pracovních listů s určitým slovem v názvu listu

V situacích, kdy chcete odkrýt pouze listy obsahující určitý text v názvu, přidejte do makra příkaz IF, který zkontroluje název každého skrytého listu a odkrývá pouze ty listy, které obsahují zadaný text.

V tomto příkladu odkrýváme listy se slovem " zpráva " v názvu. Makro zobrazí listy jako např. Nahlásit , Zpráva 1 , Červencová zpráva a podobně.

Chcete-li zrušit skrytí pracovních listů, jejichž názvy obsahují nějaké jiné slovo, nahraďte " zpráva " v následujícím kódu vložte vlastní text.

Sub Unhide_Sheets_Contain() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If (wks.Visible xlSheetVisible) And (InStr(wks.Name, "report" )> 0) Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count> 0 Then MsgBox count & " worksheets have been unhidden." , vbOKOnly, "Unhiding worksheets" Else MsgBox "No hiddenworksheets with the specified name have been found." , vbOKOnly, "Unhiding worksheets" End If End Sub

Jak používat makra k odkrývání listů v aplikaci Excel

Chcete-li makra použít v pracovním listu, můžete kód zkopírovat/vložit do editoru jazyka Visual Basic nebo si stáhnout sešit s makry a spustit je z něj.

Jak vložit makro do sešitu

Tímto způsobem můžete do sešitu přidat kterékoli z výše uvedených maker:

1. Otevřete sešit se skrytými listy.
2. Stisknutím kláves Alt + F11 otevřete editor jazyka Visual Basic.
3. V levém podokně klikněte pravým tlačítkem myši na ThisWorkbook a vyberte Vložte > Modul z kontextové nabídky.
4. Vložte kód do okna Kód.
5. Stisknutím klávesy F5 makro spustíte.

Podrobné pokyny krok za krokem naleznete v části Jak vložit a spustit kód VBA v aplikaci Excel.

Stáhněte si sešit s makry

Můžete si také stáhnout náš ukázkový sešit pro odkrývání listů v aplikaci Excel, který obsahuje všechna makra popsaná v tomto návodu:

• Unhide_All_Sheets - na okamžik a tiše odkrýt všechny listy v aktivním sešitě.
• Unhide_All_Sheets_Count - zobrazí všechny skryté listy spolu s jejich počtem.
• Unhide_Selected_Sheets (Neskrýt vybrané listy) - zobrazit skryté listy, které chcete skrýt.
• Unhide_Sheets_Contain - zrušit skrytí pracovních listů, jejichž názvy obsahují určité slovo nebo text.

Makra v aplikaci Excel spustíte následujícím způsobem:

1. Otevřete stažený sešit a na výzvu povolte makra.
2. Otevřete vlastní sešit, ve kterém chcete zobrazit skryté listy.
3. V sešitě stiskněte klávesy Alt + F8 , vyberte požadované makro a klikněte na tlačítko Spustit .

Chcete-li například zrušit skrytí všech listů v souboru aplikace Excel a zobrazit počet skrytých listů, spusťte toto makro:

Jak zobrazit skryté listy v aplikaci Excel vytvořením vlastního zobrazení

Kromě maker lze nudné zobrazování skrytých listů po jednom překonat vytvořením vlastního zobrazení. Pokud tuto funkci Excelu neznáte, můžete si vlastní zobrazení představit jako snímek nastavení sešitu, který lze kdykoli použít kliknutím myši. Tuto metodu je nejvhodnější použít na samém začátku práce, kdy ještě žádný z listů není skrytý.

Nyní tedy vytvoříme položku Zobrazit všechny listy vlastní zobrazení. Zde je návod:

1. Ujistěte se, že všechny tabulky v sešitě jsou viditelné . Tento tip ukazuje, jak rychle zkontrolovat sešit na skryté listy.
2. Přejděte na Zobrazit karta> Zobrazení sešitu a klikněte na Vlastní zobrazení tlačítko.

Na stránkách Vlastní zobrazení zobrazí se dialogové okno a vy kliknete na Přidat...

v Přidat zobrazení dialogového okna zadejte název vlastního zobrazení, např. ShowAllSheets a klikněte na tlačítko OK.

Nyní můžete skrýt libovolný počet pracovních listů, a když je budete chtít opět zviditelnit, kliknete na tlačítko . Vlastní zobrazení vyberte tlačítko ShowAllSheet zobrazit a kliknout na Zobrazit , nebo na zobrazení jednoduše dvakrát klikněte.

A je to! Všechny skryté listy se okamžitě zobrazí.

Jak zkontrolovat, zda sešit obsahuje skryté listy

Nejrychlejší způsob, jak zjistit skryté listy v aplikaci Excel, je následující: klikněte pravým tlačítkem myši na libovolnou kartu listu a zjistěte, zda je na ní Skrýt... Pokud je příkaz povolen, klikněte na něj a zjistěte, které listy jsou skryté. Pokud je zakázán (je šedý), sešit neobsahuje skryté listy.

Poznámka: Tato metoda nezobrazí příliš skryté listy. Jediný způsob, jak takové listy zobrazit, je zrušit jejich skrytí pomocí VBA.

Nelze skrýt listy v aplikaci Excel - problémy a řešení

Pokud se vám nedaří skrýt některé listy v aplikaci Excel, následující tipy pro řešení problémů mohou objasnit příčinu.

1. Sešit je chráněn

Není možné skrýt nebo odkrýt listy, pokud je struktura sešitu (nezaměňovat s šifrováním hesla na úrovni sešitu nebo s ochranou pracovního listu). Chcete-li to zkontrolovat, přejděte do okna Recenze karta> Změny a podívejte se na Chránit pracovní sešit Pokud je toto tlačítko zvýrazněno zeleně, je sešit chráněn. Chcete-li jej odepnout, klikněte na tlačítko Chránit pracovní sešit zadejte heslo, pokud se zobrazí výzva, a sešit uložte. Další informace naleznete v části Jak odemknout chráněný sešit v aplikaci Excel.

2. Pracovní listy jsou velmi skryté

Pokud jsou vaše pracovní listy skryty pomocí kódu VBA, který je činí velmi skrytými (přiřazuje jim hodnotu xlSheetVeryHidden ), nelze takové pracovní listy zobrazit pomocí příkazu Odstranit Chcete-li zrušit skrytí velmi skrytých listů, musíte změnit vlastnost z xlSheetVeryHidden na xlSheetVisible z editoru Visual Basic nebo spustit tento kód VBA.

3. V sešitě nejsou žádné skryté listy

Pokud Odstranit je na pásu karet i v nabídce pravého tlačítka myši šedý, to znamená, že v sešitě není ani jeden skrytý list :)

Takto se v Excelu odkrývají listy. Pokud vás zajímá, jak skrýt nebo odkrýt další objekty, jako jsou řádky, sloupce nebo vzorce, najdete všechny podrobnosti v níže uvedených článcích. Děkuji vám za přečtení a doufám, že se příští týden uvidíme na našem blogu!

Dostupné soubory ke stažení

Makra pro zrušení skrývání pracovních listů v aplikaci Excel