[AhmedSamir3]

اخى العزيز تأكدت من وجود علامة صح أمام البند: Microsoft Office xx Object Library

ولكن ما ذالت المشكله قائمة
لا يمكننى الحفظ الا بحذ هذا السطر Dim WithEvents MyButton As Office.CommandBarButton