هل يمكن تطبيق كود حفظ ملف بهذا الشكل

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الافاضل

هل يمكن عمل كود يقوم بحفظ الملف الذى اسمه ( a )  فى موضع محدد باسم ( b)  دون اشعار المستخدم فى وقت محدد وفى تاريخ محدد بمعنى الساعه 10 ص يوم 1/3/2014 .. يقوم بعمليه النسح . دون اظهار دلااله على الحفظ
 

على ان  يستمر العمل  بالملف a  فى موضعه الطبيعى دون ان يشعر المستخدم ان الملف تم حفظه  
 

ارجو ان تكون الفكره واضحه

جزاكم الله خير

[أبو حنــــين]

يمكن استعمال مثل هذا

Private Sub CommandButton1_Click()

If Date = #1/3/2014# And Time = #10:00:00 AM# Then
ActiveWorkbook.SaveCopyAs ("C:\DD.xls")
End If

End Sub

تم تعديل يناير 25, 2014 بواسطه أبو حنين

[محمود_الشريف]

أخى فى الله

أستاذى الأستاذ / أبو حنين

بارك الله فيكم

وجزاكم رب العالمين عنا خير الجزاء

 

هل يمكن أن يعمل الكود بطريقة تلقائية 

يعنى بدون CommandButton

 

وتقبلوا منى وافر الإحترام والتقدير

[أبو حنــــين]

اعتقد و الله اعلم  بالطريقة التالية جربها واخبرني

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Date = #1/26/2014# And Time >= #10:00:00 AM# Then
ActiveWorkbook.SaveCopyAs ("C:\RR.xls")

End If

End Sub

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزيز  واستاذى/ أبو حنين

برجاء عمل الكود على ملف ...

لانه لم يتحقق المطلوب... ولا اعلم اين الخطاء

جزاك الله خيرا

[محمود_الشريف]

أخى الكريم

الأستاذ / أبو حنين

إذا كنت تقصد الكود الأول 

فهو يحتاج الى CommandButton

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ العزيز ابو حنين الاخ الكريم محمود_الشريف

اقصد الكود الثانى لانى لن استطيع تنفيذة

وارجو المساعده فى عمله على ملف والتكد من تام عملة

 

 

 Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Date = #1/26/2014# And Time >= #10:00:00 AM# Then

ActiveWorkbook.SaveCopyAs ("C:\RR.xls")

End If

End Sub

 

جزاكم الله كل الخير

[أبو حنــــين]

هذا هو المثال

غير الساعة في الملف ثم اغلقه و جرب

RR.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

سلمت يداك اخى ابو حنين

مبدع فى كل شئ 

ويبقى اضافه اخيره ...ان امكن ذلك

هل يمكن اضافه كلمه سر للملف الذى تم حفظه فقط .... لا يتم فتحه الا بها

سلمت يداك .... وجعلة الله فى ميزان حسناتك

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Date = #1/26/2014# And Time >= #12:17:00 AM# Then
ThisWorkbook.SaveAs "C:\MMM.xls", FileFormat:=xlNormal, Password:="123"
End If
End Sub

حيت كلمة فتح الملف هي 123

 

تم تعديل يناير 26, 2014 بواسطه أبو حنين

[۩◊۩ أبو حنين ۩◊۩]

اخى الحبيب ابو حنين

جزاك الله خير

سلمت يداك بكل خير