Hur förhindrar användare att skriva ut kalkylblad?
I vårt dagliga arbete kan det finnas en del viktig information i kalkylbladet. För att skydda den interna data som sprids, tillåter inte avdelningen oss att skriva ut dem. Och här kommer jag att prata om hur man kan hindra användare från att skriva ut kalkylblad.
Hindra användare från att skriva ut ett angivet kalkylblad med VBA
Förhindra att användare skriver ut hela arbetsboken med VBA
Hindra användare från att skriva ut ett angivet kalkylblad med VBA
Du kan använda följande VBA-kod för att skydda ditt specifika kalkylblad som ska skrivas ut.
1. Aktivera kalkylbladet som du vill inaktivera dess utskriftsfunktion.
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.
3. Och sedan till vänster Project Explorer, dubbelklicka Denna arbetsbok för att öppna modulen och klistra in följande kod i den:
VBA-kod: hindra användare från att skriva ut ett angivet kalkylblad
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
Notera: I ovanstående kod, den Sheet1 är det aktiva kalkylbladet som du inte får skriva ut.
4. Spara och stäng sedan den här koden, och nu när du försöker skriva ut detta specifika kalkylblad får du följande varning.
Anmärkningar: Med den här koden får det enda specifika kalkylbladet inte skrivas ut, men andra ark kan skrivas ut som vanligt.
Förhindra att användare skriver ut hela arbetsboken med VBA
Om du behöver hindra användare från att skriva ut hela arbetsboken, har du också en kod som kan göra dig en tjänst.
1. Öppna din arbetsbok som du inte tillåter andra att skriva ut.
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.
3. Och sedan till vänster Project Explorer, dubbelklicka Denna arbetsbok för att öppna modulen och klistra in följande kod i den:
VBA-kod: hindra användare från att skriva ut ett angivet kalkylblad
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140626
Cancel = True
MsgBox "You can't print this workbook"
End Sub
4. Spara och stäng sedan den här koden och gå tillbaka till arbetsboken, och nu när du skriver ut ett kalkylblad eller hela arbetsboken får de inte skrivas ut och du får följande varning:
Relaterade artiklar:
Hur skriver jag ut flera arbetsböcker i Excel?
Hur skriver jag ut områden i Excel?
Hur skriver jag snabbt ut nuvarande sida i Excel?
Hur skriver man ut en lång kolumn på en sida i Excel?
Bästa kontorsproduktivitetsverktyg
Överlägsna dina Excel-kunskaper med Kutools for Excel, och upplev effektivitet som aldrig förr. Kutools for Excel Erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Office Tab Ger gränssnitt med flikar till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!





