طلب معرفة كود

[seaf mohamed]

'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

السلام عليكم وجدت هذا الكود عندى فى جميع شيتات الاكسل ومش عارف بيعمل اية وللاسف مش عارف امسحة ممكن اعرف دة اية وازاى امسحه وشكرا  .... تــــم رفــع الملـــف

New Microsoft Excel Worksheet (3).xlsx

[هانى محمد]

وعليكم السلام... بالفعل لا يمكن ان يكون الكود بهذا الملف لأنك للأسف قمت برفع الملف بإمتداد خاطىء XLSX لا يقبل إضافة الأكواد , يجب وضع الكود بالملف ثم حفظ الكود بهذا الإمتداد XLSM ولكم جزيل الشكر