问另存为附件时忽略Beforesave和Aftersave

EN

我有一些放在Workbook_AfterSave和Workbook_BeforeSave中的代码。它工作得很好，做的正是我想要的；但是，在测试过程中，我发现了一个奇怪的情况，Excel在保存文档时不调用这两个函数。

如果我打开一个文档并选择文件->共享->电子邮件->发送附件，那么Excel会保存我的文档并将其放入电子邮件消息中，而无需调用Workbook_AfterSave和Workbook_BeforeSave (我已经通过在Workbook_AfterSave和Workbook_BeforeSave中添加一个消息框弹出窗口来验证这一点，当在Excel中使用发送附件时，它肯定不会弹出)。

因此，我在谷歌周围挖掘，试图找出我可能有哪些其他选择来弥补我的漏洞。

背景:我在Workbook_AfterSave和Workbook_BeforeSave中的代码隐藏了选项卡，非常隐蔽，用户根本看不到它们。用户可以通过使用此电子邮件作为附件“功能”来破解工作簿，并查看隐藏的选项卡。

问题的简化:创建一个没有VBA代码的新工作簿，并另存为.xlsm文件。添加以下代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

   MsgBox "Before Save"

End Sub

选择文件->共享->电子邮件->作为附件发送。注意，您没有看到消息框；但是，如果您做了任何更改，它们肯定会被保存=)。