vba - 声明关闭时编译错误

Question

平台：Microsoft Visual Basic 6.5 和 MS Excel 2007

我正在尝试做一个宏来对一个 excel 启用文件进行一些编辑。研究了如何在不保存的情况下关闭 Excel 文件。该网页教我先声明，然后才能使用该方法。我插入复制命令并尝试编译。出现编译错误，预期语句结束。有人知道声明有什么问题吗？

Public Overridable Sub Close ( _
    <OptionalAttribute> SaveChanges As Object, _
    <OptionalAttribute> Filename As Object, _
    <OptionalAttribute> RouteWorkbook As Object _
)

Private Sub WorkbookClose()
    Me.Close(False, False)
End Sub

Answer 1

如果它在 excel 中的宏将下面的代码复制到代码的这个工作簿部分。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Close False
End Sub

Answer 2

双击“ThisWorkbook”并输入以下代码：

Option Explicit

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

    Cancel = True
    MsgBox "Save Is Not Allowed"

End Sub