كيفية حذف المصنف النشط (الملف الحالي) في Excel؟

ستقدم هذه الطريقة كود VBA لحذف المصنف المفتوح/النشط دون إغلاقه في Excel. يرجى القيام بما يلي:

1. اضغط على مفتاحي Alt + 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 من حذفه. ومع ذلك، يمكنك حذف هذا المصنف غير المحفوظ مباشرة عن طريق إغلاقه.