之前在excel宏中保存不正常

Question

我在使用Excel中的BeforeSave运行vba脚本时遇到问题 我正在运行此脚本，但我可以保存文件没有任何问题或Msgbox。

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

有什么问题？ 它应该显示一个Msgbox，我可以取消保存。

Answer 1

在文件＆gt;选项＆gt;信任中心＆gt;信任中心设置＆gt;宏设置中检查信任中心设置。 选中＆＃34旁边的单选按钮;启用全部＆＃34;看看会发生什么

此外，您的文件必须具有xlsb或xlsm

的扩展名

Answer 2

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)必须位于VBA项目中的ThisWorkbook内。