声明关闭时编译错误

Question

平台：Microsoft Visual Basic 6.5和MS Excel 2007

我正在尝试使用宏来对excel启用文件进行一些编辑。完成了关于如何关闭Excel文件而不保存的研究。 webpage告诉我在使用该方法之前发出声明。我插入复制命令并尝试编译。得到编译错误，预期结束语句。有人知道宣言有什么问题吗？

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中的宏将下面的代码复制到此workbook代码部分。

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