一鍵打開包含活動工作簿的文件夾，並選中該工作簿

此方法將引入VBA來刪除打開的/活動的工作簿，而無需在Excel中關閉它。 請執行以下操作：

1。 按 其他 + 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無法刪除它。 但是，您可以通過將其關閉直接刪除此未保存的工作簿。