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