أخيرا حل مشكلة تقل ملف الاكسيل في الفتح

[@aliyassinyasSsin]

ياريت ترفع الصوت يا هندسة - ربنا يبارك فيك

[@basselaboaballh4296]

ماشتغل ؟

[@tahamohamed2232]

فين الملف من فضلك؟

[@mohamedelabady3013]

الكود اشتغل لاكن للأسف خرب الملف لأنه حذف جميع الجداول المنشأه بإستخدام باور كويري والحمدلله كنت محتفظ بنسخة اخرى من الملف قبل التجربة

[@accountingexcel9587]

فيه غلط ف الكود !؟؟؟

[@mohamedtyson7201]

انت فعلت الكود على اكسيل مايكرو بس للاسف بيديني

[@engsamehsobhy]

Sub Remove_Hidden_Names() ' Dimension variables. Dim xName As Variant Dim Result As Variant Dim Vis As Variant ' Loop once for each name in the workbook. For Each xName In ActiveWorkbook.Names 'If a name is not visible (it is hidden)... If xName.Visible = True Then Vis = "Visible" Else Vis = "Hidden" End If ' ...ask whether or not to delete the name. ' Result = MsgBox(prompt:="Delete " & Vis & " Name " & _ ' Chr(10) & xName.Name & "?" & Chr(10) & _ ' "Which refers to: " & Chr(10) & xName.RefersTo, _ ' Buttons:=vbYesNo) ' If the result is true, then delete the name. ' If Result = vbYes Then xName.Delete ' Loop to the next name. Next xName End Sub

[@muhanadmawasalkazmeh137]

ماذا يعمل الكود بالتحديد حتى يسرع فتح الملف

[@basselaboaballh4296]

رائع جدا لكن الكود ارفعه بغير طريقة كيف اكتب كل هذا الكود صعب والله

[@basselaboaballh4296]

ممكن تحمله على صيغة اخرة تقدر ننسخه بشي طريقة

[@engsamehsobhy]

الكود اول تعليق

[@مهديعثمان-د4ح]

الكود فيه خطا للاسف

[@engsamehsobhy]

الكود صحيح ومجرب

[@sakrsky-b8v]

بيعمل ايرور

[@Alisalehhs]

فيه غلط بالكود xname.delete ما تضبط

[@engsamehsobhy]

مفيش غلط راجع الخطوات