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í.

Pozor: 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?