ExcelのVBAコードについて教えてください。

下記のコードをマクロに設定しております。
Sub ファイル名変更()
Call　青紙
Call　エジソン
Call　エジソン審査資料

With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close (False)
End With


End Sub
上記のマクロを実行すると上から順番に
Call　青紙
Call　エジソン
Call　エジソン審査資料が実行されて
マクロを設定しているブックを削除出できますが
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close (False)
End With
のコードだと、作業中のブックは削除されるのですが、エクセルが開いたままになっております。
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close (False)
End With
の部分を変更して、作業中のブックを削除して、Excelも閉じるようにできる方法を教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： yhobear77 回答日時： 2023/08/10 14:57

With ThisWorkbookの前に↓を入れてみてください。

If (Workbooks.Count = 1) Then
'他のBookが開いていなければExcelを終了
Application.Quit
End If

この回答へのお礼

ありがとうございます。
上手くできました。

お礼日時：2023/08/10 15:12