วิธีนี้จะแนะนำ 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 นี้จะไม่สามารถลบได้ อย่างไรก็ตามคุณสามารถลบสมุดงานที่ไม่ได้บันทึกนี้ได้โดยตรงโดยปิด