☰

如果 Excel 中的某些单元格未被修改，如何防止打印/保存文件？

tag-icon • tag-icon microsoft-excel vba
如果 Excel 中的某些单元格未被修改，如何防止打印/保存文件？

我在 Excel 中有一个模板工作表，我经常更改其中的某些单元格。问题是：如果某些单元格未更改，是否有办法让 Excel 阻止我打印或保存工作表？

答案1

您可以在保存之前使用它来触发。

如果不满足条件，则取消保存。

参见以下示例：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ 
        Cancel as Boolean) 
    a = MsgBox("Do you really want to save the workbook?", vbYesNo) 
    If a = vbNo Then Cancel = True 
End Sub

您也可以在打印之前执行相同的操作：

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    a = MsgBox("Do you really want to print the workbook?", vbYesNo) 
    If a = vbNo Then Cancel = True 
End Sub

下面的部分需要修改才能符合您的标准。

a = MsgBox("Do you really want to print the workbook?", vbYesNo) 
If a = vbNo Then Cancel = True

这些需要放入“本工作簿”中，而不是放在模块中。

相关内容