السلام عليكم
اخى الكريم
كل عام و انتم يخير
رسائل الخطأ مساله عامه جدا ليس فيها تخصيص
حدد مشكله بعينها
و احيانا كثره ترجع الى خلل في الاوفس او الويندوز
اخوك
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sFileName As String
sFileName = Format(Now(), "ddmmyy")
ActiveWorkbook.SaveAs "d:\abumaher\" & sFileName & ".xls"
End Sub
ActiveWorkbook.SaveCopyAs "d:\abumaher\test.xls"
قم بانشاء مجلد و سمه abumaher
سيتم حفظ نسخه باسم test عن الملف الذي تعمل عليه على القرص دي
انسخ الكود اعلاه في
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs "d:\abumaher\test.xls"
End Sub