ワンクリックで、このワークブックが選択されたアクティブなワークブックを含むフォルダーを開きます

このメソッドは、Excelで閉じずに開いている/アクティブなブックを削除するVBAを導入します。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

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はそれを削除できません。 ただし、この保存されていないワークブックを閉じると、直接削除できます。