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

[@aliyassinyasSsin]

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

[@basselaboaballh4296]

ماشتغل ؟

[@accountingexcel9587]

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

[@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]

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

[@mohamedelabady3013]

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

[@basselaboaballh4296]

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

[@basselaboaballh4296]

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

[@engsamehsobhy]

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

[@mohamedtyson7201]

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

[@sakrsky-b8v]

بيعمل ايرور

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

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

[@engsamehsobhy]

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

[@Alisalehhs]

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

[@engsamehsobhy]

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