Chào các anh chị em, dạo này làm việc với Excel nhiều, máy tính của mình cứ chậm dần đi vì mở quá nhiều file cùng lúc. Mỗi lần muốn đóng bớt thì lại phải mò từng cửa sổ một, mất công ghê.
Hôm nay, mình tình cờ tìm được một đoạn code VBA khá hay, giúp tự động đóng tất cả các file Excel đang mở, trừ file hiện tại mà mình đang làm việc. Cái này hữu ích cho những ai hay phải mở nhiều file và muốn dọn dẹp nhanh chóng để máy chạy mượt hơn.
Cách làm như sau:
- Mở file Excel bạn đang làm việc.
- Nhấn
Alt + F11để mở cửa sổ VBA Editor. - Trong cửa sổ VBA Editor, chọn Insert -> Module.
- Copy đoạn code sau và paste vào Module vừa tạo:
Sub CloseAllOtherWorkbooks()
Dim wb As Workbook
Dim currentWB As Workbook
Set currentWB = ThisWorkbook
For Each wb In Application.Workbooks
If wb.Name currentWB.Name Then
wb.Close SaveChanges:=False
End If
Next wb
End SubSau đó, bạn có thể chạy macro này bằng cách nhấn Alt + F8, chọn CloseAllOtherWorkbooks và nhấn Run.
Lưu ý: Đoạn code này sẽ KHÔNG LƯU các thay đổi trong các file khác. Nếu bạn muốn lưu, hãy thay SaveChanges:=False thành SaveChanges:=True.
Hy vọng tiện ích nhỏ này giúp ích cho mọi người!