Kako uporabnikom preprečiti tiskanje delovnega lista?

Pri našem vsakdanjem delu je lahko na delovnem listu nekaj pomembnih informacij, da bi zaščitili razširjene notranje podatke, nam oddelek ne dovoli, da jih natisnemo. In tukaj bom govoril o tem, kako uporabnikom preprečiti tiskanje delovnega lista.

Uporabnikom preprečite tiskanje določenega delovnega lista z VBA

Uporabnikom preprečite tiskanje celotnega delovnega zvezka z VBA

Uporabnikom preprečite tiskanje določenega delovnega lista z VBA

Za zaščito vašega delovnega lista, ki ga želite natisniti, lahko uporabite naslednjo kodo VBA.

1. Aktivirajte svoj delovni list, v katerem želite onemogočiti njegovo funkcijo tiskanja.

2. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

3. In nato v levo Raziskovalec projektov, dvojni klik Ta delovni zvezek da odprete modul in vanj prilepite naslednjo kodo:

Koda VBA: preprečite uporabnikom tiskanje določenega delovnega lista

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

Opomba: V zgornji kodi je Sheet1 je aktivni delovni list, ki ga ne smete natisniti.

4. Nato shranite in zaprite to kodo, ko boste poskusili natisniti ta delovni list, boste dobili naslednje opozorilo.

Opombe: Pri tej kodi ni dovoljeno tiskati samo določenega delovnega lista, druge liste pa lahko natisnete kot običajno.

Uporabnikom preprečite tiskanje celotnega delovnega zvezka z VBA

Če želite uporabnikom preprečiti tiskanje celotnega delovnega zvezka, tukaj imate tudi kodo, ki vam lahko stori uslugo.

1. Odprite delovni zvezek, ki ga drugim ne dovolite tiskati.

2. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

3. In nato v levo Raziskovalec projektov, dvojni klik Ta delovni zvezek da odprete modul in vanj prilepite naslednjo kodo:

Koda VBA: preprečite uporabnikom tiskanje določenega delovnega lista

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140626
Cancel = True
MsgBox "You can't print this workbook"
End Sub

4. Nato shranite in zaprite to kodo ter se vrnite nazaj v delovni zvezek. Ko natisnete en delovni list ali celoten delovni zvezek, jih ne bo mogoče natisniti in dobili boste naslednje opozorilo:

Sorodni članki:

Kako natisniti več delovnih zvezkov v Excelu?

Kako natisniti obsege v Excelu?

Kako hitro natisniti trenutno stran v Excelu?

Kako natisniti dolg stolpec na eno stran v Excelu?