Excel VBA 关闭当前工作簿错误 1004

Question

我在 Excel 工作簿中有一些 VBA 代码。 我有一个单元格，我想用它来关闭工作簿而不保存（而不是使用 excel 右上角的常用 (X) 关闭按钮。

如果我使用 (X) 按钮关闭工作簿，则以下代码效果很好。 但是，如果我按下工作表上的“关闭”按钮单元格，则会出现 1004 错误。

谁能帮忙？

在按钮所在的工作表上

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Cells(ActiveCell.Row, ActiveCell.Column) = "CLOSE" Then

    CloseNoSave
End If

End Sub

在本手册中

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    CloseNoSave

End Sub

在模块中

Sub CloseNoSave()

    ThisWorkbook.Close savechanges:=False
End Sub

Answer 1

为什么不在Selection 事件中使用一段代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Value = "CLOSE" Then
        ThisWorkbook.Saved = True
        ThisWorkbook.Close
    End If
End Sub