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?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
