Một cú nhấp chuột để mở thư mục chứa sổ làm việc đang hoạt động với sổ làm việc này được chọn

Phương pháp này sẽ giới thiệu một VBA để xóa sổ làm việc đang mở / đang hoạt động mà không cần đóng nó trong Excel. Vui lòng làm như sau:

1. Nhấn nút Khác + F11 đồng thời để mở cửa sổ Microsoft Visual Basic for Applications.

2. nhấp chuột Chèn > Mô-đun, sao chép mã VBA sau và dán vào cửa sổ mô-đun đang mở.

VBA: Xóa sổ làm việc đang hoạt động mà không cần đóng nó trong 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. Nhấn nút F5 phím hoặc chạy để chạy VBA này.

Chú ý:

(1) VBA này có thể xóa sổ làm việc đang hoạt động, nhưng không thể đóng cửa sổ Excel. Nếu không có sổ làm việc nào mở sau khi xóa sổ làm việc đang hoạt động, hãy đóng cửa sổ Excel theo cách thủ công.

(2) Nếu sổ làm việc đang hoạt động chưa từng được lưu trước đây, thì VBA này không thể xóa nó. Tuy nhiên, bạn có thể xóa sổ làm việc chưa được lưu này trực tiếp bằng cách đóng nó.