PCメモ

Excelを中心とした業務改善の記録

印刷不可マクロ

印刷不可マクロ

印刷ボタンを押したときに、マクロを自動実行することで印刷できないようにする。

f:id:abv72:20200829173945p:plain

 

VBEを開き、ThisiWorkBookを選択する。

 

f:id:abv72:20200829174224p:plain

BeforePrintを使用し、印刷直後にマクロを自動実行させる。

MsgBoxでユーザーに印刷できないことを知らせる。

Cancel = True とすることで、印刷がキャンセルされる。

 

Private Sub Workbook_BeforePrint(Cancel As Boolean)

 MsgBox "このシートは印刷できません"
 Cancel = True

End Sub