Skip i'r prif gynnwys

Sut i atal defnyddwyr rhag argraffu taflen waith?

Yn ein gwaith beunyddiol, efallai y bydd rhywfaint o wybodaeth bwysig yn y daflen waith, er mwyn amddiffyn y data mewnol sydd wedi'i wasgaru, ni fydd yr adran yn caniatáu inni eu hargraffu. Ac yma, byddaf yn siarad am sut i atal defnyddwyr rhag argraffu taflen waith.

Atal defnyddwyr rhag argraffu un daflen waith benodol gyda VBA

Atal defnyddwyr rhag argraffu'r llyfr gwaith cyfan gyda VBA


swigen dde glas saeth Atal defnyddwyr rhag argraffu un daflen waith benodol gyda VBA

Gallwch gymhwyso'r cod VBA canlynol i amddiffyn eich taflen waith benodol i'w hargraffu.

1. Ysgogwch eich taflen waith eich bod am analluogi ei nodwedd argraffu.

2. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

3. Ac yna yn y chwith Archwiliwr Prosiect, cliciwch ddwywaith Llyfr Gwaith hwn i agor y modiwl, a gludo'r cod canlynol iddo:

Cod VBA: atal defnyddwyr rhag argraffu un daflen waith benodol

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

doc-atal-argraffu-1

Nodyn: Yn y cod uchod, mae'r Sheet1 yw'r daflen waith weithredol na chaniateir i chi ei hargraffu.

4. Yna arbedwch a chau'r cod hwn, ac yn awr pan geisiwch argraffu'r daflen waith benodol hon, fe gewch y rhybudd canlynol.

doc-atal-argraffu-1

Nodyn: Gyda'r cod hwn, ni chaniateir argraffu'r unig daflen waith benodol, ond gellir argraffu taflenni eraill fel arfer.


swigen dde glas saeth Atal defnyddwyr rhag argraffu'r llyfr gwaith cyfan gyda VBA

Os oes angen i chi atal defnyddwyr rhag argraffu'r llyfr gwaith cyfan, yma hefyd mae cod yn gallu gwneud ffafr i chi.

1. Agorwch eich llyfr gwaith nad ydych chi'n caniatáu i eraill ei argraffu.

2. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

3. Ac yna yn y chwith Archwiliwr Prosiect, cliciwch ddwywaith Llyfr Gwaith hwn i agor y modiwl, a gludo'r cod canlynol iddo:

Cod VBA: atal defnyddwyr rhag argraffu un daflen waith benodol

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

doc-atal-argraffu-1

4. Yna arbedwch a chau'r cod hwn, ac ewch i gefn y llyfr gwaith, ac yn awr pan fyddwch chi'n argraffu un daflen waith neu'r llyfr gwaith cyfan, ni chaniateir eu hargraffu a chewch y rhybudd canlynol:

doc-atal-argraffu-1


Erthyglau cysylltiedig:

Sut i argraffu nifer o lyfrau gwaith yn Excel?

Sut i argraffu ystodau yn Excel?

Sut i argraffu'r dudalen gyfredol yn Excel yn gyflym?

Sut i argraffu colofn hir ar un dudalen yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to prevent printing more than one sheet but not the hole workbook?
This comment was minimized by the moderator on the site
This works in theory, but by default Excel disables all macros when you open a workbook, which prevents this code from executing and allows printing as usual.
This comment was minimized by the moderator on the site
That's why you force users to enable macros in order to use a workbook.
This comment was minimized by the moderator on the site
This works but when you email the file, the user on that end can print it... which defeats the purpose...
This comment was minimized by the moderator on the site
Maybe it is possible to have an overlay (text box with white background) which hides the entries. Say on it: "Enable Macros to see content" with a button to press which moves the text box.

Now they can see the entries, but the macro is active again :-)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations