برجاء مساعدتى فى تفعيل هذا الكود لحماية الملف

[AL_AYMAN]

السادة الزلاء

تحية طيبة

مرفق ادناه كود يقوم بحفظ الملف فى مكان اخر على الهارد وباسم اخر ويضع له كلمة مرور

ولا يتم فتحة بعد فترة تكون  محددة داخل الكود ولكن الكود لا يعمل

اى لا يتم خفظ الملف فى مكان اخر وحذف الملف الاصلى ولا يتك وضع كلمة مرور

برجاء مساعدتى لاننى فى حاجة ماسة لهذا الكود وباقصى سرعة 

وجزاكم اللة كل الخير 

هذا هو الكود

 

 

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

[ياسر خليل أبو البراء]

جرب تغيير التاريخ في الكود إلى تاريخ اليوم

[AL_AYMAN]

قمت بتغيير التاريخ وتغيير الوقت وللاسف لم يعمل

[AL_AYMAN]

برجاء مساعدتى فى تفعيل هذا الكود لاحتياجى له بشدة 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Date = #10/13/2014# And Time >= #3:40:00 PM# Then

ThisWorkbook.SaveAs "C:\MZM.xls", FileFormat:=xlNormal, Password:="123"

End If

End Sub