จะป้องกันไม่ให้ผู้ใช้พิมพ์แผ่นงานได้อย่างไร?
ในการทำงานประจำวันของเราอาจมีข้อมูลสำคัญบางอย่างอยู่ในแผ่นงานเพื่อป้องกันการแพร่กระจายข้อมูลภายในแผนกจะไม่อนุญาตให้เราพิมพ์ และที่นี่ฉันจะพูดถึงวิธีป้องกันไม่ให้ผู้ใช้พิมพ์แผ่นงาน
ป้องกันไม่ให้ผู้ใช้พิมพ์แผ่นงานที่ระบุด้วย VBA
ป้องกันไม่ให้ผู้ใช้พิมพ์สมุดงานทั้งหมดด้วย VBA
ป้องกันไม่ให้ผู้ใช้พิมพ์แผ่นงานที่ระบุด้วย VBA
คุณสามารถใช้รหัส VBA ต่อไปนี้เพื่อป้องกันแผ่นงานของคุณที่จะพิมพ์
1. เปิดใช้งานแผ่นงานของคุณที่คุณต้องการปิดใช้งานคุณสมบัติการพิมพ์
2. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.
3. จากนั้นทางด้านซ้าย นักสำรวจโครงการ, ดับเบิลคลิก สมุดงานนี้ เพื่อเปิดโมดูลและวางรหัสต่อไปนี้ลงใน:
รหัส VBA: ป้องกันไม่ให้ผู้ใช้พิมพ์แผ่นงานที่ระบุ
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
หมายเหตุ ในโค้ดด้านบนไฟล์ Sheet1 คือแผ่นงานที่ใช้งานอยู่ซึ่งคุณไม่ได้รับอนุญาตให้พิมพ์
4. จากนั้นบันทึกและปิดรหัสนี้และตอนนี้เมื่อคุณพยายามพิมพ์แผ่นงานนี้คุณจะได้รับคำเตือนต่อไปนี้
หมายเหตุ: ด้วยรหัสนี้ไม่อนุญาตให้พิมพ์แผ่นงานเฉพาะแผ่นงาน แต่สามารถพิมพ์แผ่นงานอื่น ๆ ได้ตามปกติ
ป้องกันไม่ให้ผู้ใช้พิมพ์สมุดงานทั้งหมดด้วย VBA
หากคุณต้องการป้องกันไม่ให้ผู้ใช้พิมพ์เวิร์กบุ๊กทั้งหมดที่นี่ยังมีรหัสที่สามารถช่วยคุณได้
1. เปิดสมุดงานของคุณซึ่งคุณไม่อนุญาตให้ผู้อื่นพิมพ์
2. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications
3. จากนั้นทางด้านซ้าย นักสำรวจโครงการ, ดับเบิลคลิก สมุดงานนี้ เพื่อเปิดโมดูลและวางรหัสต่อไปนี้ลงใน:
รหัส VBA: ป้องกันไม่ให้ผู้ใช้พิมพ์แผ่นงานที่ระบุ
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140626
Cancel = True
MsgBox "You can't print this workbook"
End Sub
4. จากนั้นบันทึกและปิดรหัสนี้และกลับไปที่สมุดงานและตอนนี้เมื่อคุณพิมพ์แผ่นงานหนึ่งแผ่นหรือทั้งสมุดงานจะไม่อนุญาตให้พิมพ์และคุณจะได้รับคำเตือนต่อไปนี้:
บทความที่เกี่ยวข้อง:
วิธีพิมพ์สมุดงานหลายเล่มใน Excel
วิธีพิมพ์หน้าปัจจุบันใน Excel อย่างรวดเร็ว
วิธีพิมพ์คอลัมน์ยาวในหน้าเดียวใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
