بعد إذن الأستاذ الفاضل / الصقر جرب الكود التالى : كود لعمل حفظ ذانى لملف الإكسيل
على رابط لى قد شاركت به من قبل
http://www.officena.net/ib/index.php?showtopic=59622&hl=%2Bauto+%2Bsave
يوضع الكود فى ThisWorkbook
Sub workbook_beforeclose(cancel As Boolean)
If Me.Saved = False Then Me.Save
End Sub
Auto Save Excel.rar