كيفية حذف المصنف النشط (الملف الحالي) في إكسيل؟
لنفترض أنك قمت بتنزيل مصنف من موقع ويب وتم فتح المصنف تلقائيًا. ومع ذلك ، قد لا يكون المصنف هو المصنف المناسب ، أو لا يحتوي المصنف علي المعلومات المطلوبة ، وتريد حذفه. في بعض الأحيان ، ربما تنسى الدليل الافتراضي الذي يتم حفظ الملفات التي تم تنزيلها فيه تلقائيًا. لا تقلق ، يمكننا حذف المصنف الافتتاحي / النشط دون إغلاقه مباشرة في Excel.
احذف المصنف النشط (الملف الحالي) باستخدام VBA
نقرة واحدة لفتح المجلد الذي يحتوي على مصنف نشط مع تحديد هذا المصنف
لفتح المجلد / الدليل الذي يحتوي على المصنف الحالي بسرعة ، وتحديد المصنف الحالي في مجلد الفتح ، يرجى تجربة Kutools for Excel's فتح المجلد المتضمن خدمة.
احذف المصنف النشط (الملف الحالي) باستخدام VBA
ستقدم هذه الطريقة VBA لحذف المصنف الافتتاحي / النشط دون إغلاقه في Excel. الرجاء القيام بما يلي:
1. اضغط على قديم + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر إدراج > وحدة، انسخ كود فبا التالي والصقه في نافذة الوحدة الافتتاحية.
فبا: حذف المصنف النشط دون إغلاقه في إكسيل
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 هذا من حذفه. ومع ذلك ، يمكنك حذف هذا المصنف غير المحفوظ مباشرة عن طريق إغلاقه.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!