كود RibbonX

[seaf mohamed]

السلام عليكم 

كلما اقوم بفتح شيت اكسل لكتابة medial يظهر عتدة كود Ribbenx code 

Entry point for RibbonX button click
Sub ShowATPDialog(control As IRibbonControl)
    Application.Run ("fDialog")
End Sub
'Callback for RibbonX button label
Sub GetATPLabel(control As IRibbonControl, ByRef label)
    label = ThisWorkbook.Sheets("RES").Range("A10").Value
End Sub

ما هو الحل لحذفة نهائى ولا يظهر لى مرة اخرى 

[أ / محمد صالح]

ربما لو ازفقت الملف او الجزء الذي به المشكلة نتوصل للحل

[seaf mohamed]

الف شكر على الرد هرفق ملف لتوضيح المشكلة

New Microsoft Excel Worksheet.xlsx

[أ / محمد صالح]

الملف المرفق لا يفيدنا في الوقوف على أسباب المشكلة 

ربما تكون قمت بتثبيت برنامج ribbonX وهو الذي يقوم بوضع هذا الكود في جميع الملفات بناء على خيارات البرنامج

لذا افترح الغاء تثبيت البرنامج وملاحظة المشكلة

وإذا استمرت أقترح عمل اصلاح repair. للأوفيس من لوحة التحكم ثم إلغاء تثبيت البرامج

بالتوفيق