Excel VBA 質問スレ Part69

[852 デフォルトの名無しさん (ﾜｯﾁｮｲ 9fad-m2SK) 2021/03/08(月) 11:57:13.64 ID:vFSNvomr0]

Application.DisplayAlerts = False
If Workbooks.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close
Application.DisplayAlerts = True
End If

とかどう？