السادة الزلاء
تحية طيبة
مرفق ادناه كود يقوم بحفظ الملف فى مكان اخر على الهارد وباسم اخر ويضع له كلمة مرور
ولا يتم فتحة بعد فترة تكون محددة داخل الكود ولكن الكود لا يعمل
اى لا يتم خفظ الملف فى مكان اخر وحذف الملف الاصلى ولا يتك وضع كلمة مرور
برجاء مساعدتى لاننى فى حاجة ماسة لهذا الكود وباقصى سرعة
وجزاكم اللة كل الخير
هذا هو الكود
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Date = #7/27/2014# And Time >= #12:17:00 AM# Then ThisWorkbook.SaveAs "C:\AYMAN.xls", FileFormat:=xlNormal, Password:="123" End If End Sub
AAA.rar