Tìm hiểu về lệnh "Không in trong excel"

[duyhungpdv]

Chào các anh/chị trong diễn dàn!
Do một số lý do nhất định em muốn chặn lệnh in và cũng đã tìm đc VBA chặn! Nhưng là sự kiện chặn tất cả luôn trong khi em chỉ cần chặn 1 sheet1
Nay em muốn nhờ anh chị sửa code giúp em để chặn riêng 1 Sheet!
Code em đang dùng ạ!

Public EnablePrint As Boolean
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = Not (EnablePrint)
EnablePrint = False 'chi cho in mot lan
End Sub

Em dùng lệnh này để mở khi ấn nút có VBA
On Error Resume Next
ThisWorkbook.EnablePrint = True

 

[befaint]

chặn

Mặc định Excel không cho phép macro chạy => VBA có ý nghĩa gì đâu?

Mà cứ nhìn thấy trên màn hình là lấy được => in được.

 

[VetMini]

Mặc định Excel không cho phép macro chạy => VBA có ý nghĩa gì đâu?

Mà cứ nhìn thấy trên màn hình là lấy được => in được.

Cũng có khi người ta đơn giản tránh in lầm, trường hợp cố ý thì mặc kệ.

@thớt:
Xét 2 trường hợp:
- ngừoi ta activate sheet rồi in: như vậy nếu activesheet.name = "Sheet1" thì Cancel = True
- ngừoi ta select sheet(s) rồi in:
Dùng vòng lặp For Each ws in ActiveWindow.SelectedSheets
if ws.Name <> "Sheet1" Then ws.PrintOut
Next ws
Cancel = True