اذا تقصد حفظ باسم
استخدم هذا الكود في موديل ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then Cancel = True
End Sub
تحياتي
بارك الله فيك اخى عبد الله
تمام هو المطلوب تمام وبارك الله فيك
لى طلب آخر لو سمحت
1) هل فيه طريقة لإجبار من يفتح الملف على تقليل الحماية فى الاصدارات الـ 2003 و 2007 و 2010
وذلك بسبب انه إذا فتح الملف والحماية عالية لتمكن من مشاهادة الماكرو والعبث بالمعادلات او نسخها فيؤدى الى اخذ بيانات خاطئة حيث يتم عملة وضع البيانات الناتجة من هذا الملف فى ملف الاكسس
2) ممكن اعمل ايه فى الملف لضمان استلامى لنفس الملف الذى ارسلته مثلا علامة الوتر مارك حتى يصعب على احد عمل مثل هذا الملف او اى شئ آخر مثل summary منفذ الملف
وجزاكم الله خيرا