Jak zabránit uživatelům v tisku listu?
V naší každodenní práci mohou být v listu některé důležité informace, které nám oddělení z důvodu ochrany interního rozšíření údajů nedovolí vytisknout. A tady budu mluvit o tom, jak zabránit uživatelům v tisku listu.
Zabraňte uživatelům tisknout jeden specifikovaný list pomocí VBA
Zabraňte uživatelům v tisku celého sešitu pomocí VBA
Zabraňte uživatelům tisknout jeden specifikovaný list pomocí VBA
Následující kód VBA můžete použít k ochraně konkrétního listu, který se má vytisknout.
1. Aktivujte list, u kterého chcete deaktivovat jeho funkci tisku.
2. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
3. A pak vlevo Průzkumník projektu, dvojklik Tato pracovní kniha otevřete modul a vložte do něj následující kód:
Kód VBA: zabraňte uživatelům v tisku jednoho zadaného listu
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140625
Dim WsName As String
WsName = "Sheet1"
For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
If xWs.Name = WsName Then
MsgBox ("You can not print this worksheet")
Cancel = True
End If
Next
End Sub
Poznámka: Ve výše uvedeném kódu je Sheet1 je aktivní list, který nemáte povoleno tisknout.
4. Poté tento kód uložte a zavřete a nyní, když se pokusíte vytisknout tento konkrétní list, zobrazí se následující upozornění.
Poznámka: S tímto kódem není povolen tisk jediného konkrétního listu, ale lze tisknout další listy jako obvykle.
Zabraňte uživatelům v tisku celého sešitu pomocí VBA
Pokud potřebujete zabránit uživatelům v tisku celého sešitu, zde máte také kód, který vám může udělat laskavost.
1. Otevřete sešit, který ostatním nedovolíte tisknout.
2. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
3. A pak vlevo Průzkumník projektu, dvojklik Tato pracovní kniha otevřete modul a vložte do něj následující kód:
Kód VBA: zabraňte uživatelům v tisku jednoho zadaného listu
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140626
Cancel = True
MsgBox "You can't print this workbook"
End Sub
4. Poté uložte a zavřete tento kód a přejděte zpět do sešitu a teď, když vytisknete jeden list nebo celý sešit, nebude možné je vytisknout a zobrazí se následující varování:
Související články:
Jak tisknout více sešitů v aplikaci Excel?
Jak tisknout rozsahy v aplikaci Excel?
Jak rychle vytisknout aktuální stránku v aplikaci Excel?
Jak tisknout dlouhý sloupec na jednu stránku 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!
