Private Sub
Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox “拒绝打印”, vbInformation
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "拒绝打印！", vbCritical + vbOKOnly, "拒绝打印"
Cancel = True
End Sub
上次因为直接打字上去的未测试，不好意思。
选择你要保护的工作簿，点任意工作表选查看代码，
上面的代码直接复制到ThisWorkBook窗体内。
MsgBox "拒绝打印！", vbCritical + vbOKOnly, "拒绝打印"
Cancel = True
End Sub
上次因为直接打字上去的未测试，不好意思。
选择你要保护的工作簿，点任意工作表选查看代码，
上面的代码直接复制到ThisWorkBook窗体内。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-03-23
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox “拒绝打印”, vbInformation
End Sub
Cancel = True
MsgBox “拒绝打印”, vbInformation
End Sub
第2个回答 2011-03-23
加个If 。。。then
