Hvordan kan jeg forhindre brugere i at udskrive regneark?
I vores daglige arbejde kan der være nogle vigtige oplysninger i regnearket. For at beskytte de interne data, der udbredes, tillader afdelingen os ikke at udskrive dem. Og her vil jeg tale om, hvordan man forhindrer brugere i at udskrive regneark.
Forhindre brugere i at udskrive et bestemt regneark med VBA
Forhindre brugere i at udskrive hele projektmappen med VBA
Forhindre brugere i at udskrive et bestemt regneark med VBA
Du kan anvende følgende VBA-kode for at beskytte dit specifikke regneark, der skal udskrives.
1. Aktivér dit regneark, som du vil deaktivere dets udskrivningsfunktion.
2. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
3. Og så til venstre Projekt Explorer, Dobbeltklik ThisWorkbook for at åbne modulet og indsætte følgende kode i det:
VBA-kode: forhindrer brugere i at udskrive et bestemt regneark
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
Bemærk: I ovenstående kode er Sheet1 er det aktive regneark, som du ikke har lov til at udskrive.
4. Gem og luk derefter denne kode, og når du nu prøver at udskrive dette specifikke regneark, får du følgende advarsel.
Bemærk: Med denne kode er det eneste specifikke regneark ikke tilladt at udskrive, men andre ark kan udskrives som normalt.
Forhindre brugere i at udskrive hele projektmappen med VBA
Hvis du har brug for at forhindre brugere i at udskrive hele projektmappen, skal du også have en kode, der kan gøre dig en tjeneste.
1. Åbn din projektmappe, som du ikke tillader andre at udskrive.
2. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
3. Og så til venstre Projekt Explorer, Dobbeltklik ThisWorkbook for at åbne modulet og indsætte følgende kode i det:
VBA-kode: forhindrer brugere i at udskrive et bestemt regneark
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140626
Cancel = True
MsgBox "You can't print this workbook"
End Sub
4. Gem derefter og luk denne kode, og gå tilbage til projektmappen, og når du nu udskriver et regneark eller hele projektmappen, tillades de ikke at blive udskrevet, og du får følgende advarsel:
Relaterede artikler:
Hvordan udskrives flere projektmapper i Excel?
Hvordan udskrives intervaller i Excel?
Hvordan udskrives den aktuelle side hurtigt i Excel?
Hvordan udskrives en lang kolonne på en side i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools for Excel, og oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Office Tab Giver fanebladsgrænseflade til Office og gør dit arbejde meget nemmere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
