จะป้องกันไม่ให้ผู้ใช้พิมพ์แผ่นงานได้อย่างไร?

ในการทำงานประจำวันของเราอาจมีข้อมูลสำคัญบางอย่างอยู่ในแผ่นงานเพื่อป้องกันการแพร่กระจายข้อมูลภายในแผนกจะไม่อนุญาตให้เราพิมพ์ และที่นี่ฉันจะพูดถึงวิธีป้องกันไม่ให้ผู้ใช้พิมพ์แผ่นงาน

ป้องกันไม่ให้ผู้ใช้พิมพ์แผ่นงานที่ระบุด้วย 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