Jak rychle vytisknout skryté listy v aplikaci Excel?

Pokud máte sešit obsahující mnoho listů, z nichž některé jsou viditelné a jiné skryté, a chcete vytisknout pouze ty skryté, postupujte takto. Protože Excel ve výchozím nastavení neumožňuje tisk skrytých listů, provedu vás pomocí jednoduchého kódu VBA, jak toho dosáhnout:

1. Stisknutím kláves "Alt" + "F11" otevřete okno "Microsoft Visual Basic for Applications".

2. V okně „Microsoft Visual Basic for Applications“ klikněte na „Vložit“ > „Modul“. Poté zkopírujte níže uvedený kód VBA do okna Kód.

Kód VBA: Tisk skrytých listů v Excelu

Sub PrintHiddenSheets()
'Updated by Extendoffice 2024/07/15
Dim wSheet As Worksheet
Dim CurStat As Variant
For Each wSheet In ActiveWorkbook.Worksheets
If Not wSheet.Visible Then
CurStat = wSheet.Visible
wSheet.Visible = xlSheetVisible
wSheet.PrintOut
wSheet.Visible = CurStat
End If
Next
End Sub

2. A potom klikněte tlačítko nebo klávesu F5 pro spuštění kódu. Tím se vytisknou všechny skryté listy v sešitu.