Excelでアクティブなワークブック（現在のファイル）を削除するにはどうすればよいですか？

この方法では、Excelで閉じずに開いている/アクティブなワークブックを削除するためのVBAを紹介します。以下の手順に従ってください：

1. AltキーとF11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「 挿入」＞「モジュール」をクリックし、次のVBAコードをコピーして開いているモジュールウィンドウに貼り付けます。

VBA: Excelで閉じずにアクティブなワークブックを削除する

Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub

3. F5キーまたは「実行」ボタンを押して、このVBAを実行します。

注意：

(1) このVBAはアクティブなワークブックを削除できますが、Excelウィンドウを閉じることはできません。アクティブなワークブックが削除された後に開いているワークブックがない場合は、手動でExcelウィンドウを閉じてください。

(2) アクティブなワークブックがこれまで保存されたことがない場合、このVBAでは削除できません。ただし、直接閉じることで未保存のワークブックを削除できます。