مطلوب كود للحفظ التلقائى فى اكسيل

[حسام عبدالمحسن]

الاساتذة الكرام

 

لدى ملف اكسيل هل من طريقة لجعل الملف يحفظ تلقائيا بدون الضغد على حفظ او على ctrl+s بعد فترة محددة  بمعنى انه يحفظ تلقائى كل دقيقة مثلا

[حمادة عمر]

السلام عليكم

الاخ الكريم / حسام غباشى

 

بارك الله فيك

اليك اخي الكود الذي يقوم بهذه الوظيفه ... حفظ تلقائي للملف كل دقيقة

اولا لنقل كود الحفظ الي ملفك .... قم بعمل مودل وضع الاكواد التاليه فيه ...

Public Rm As Double
Public Const C_Con = 60
Public Const Sc_W = "Ex"
Public Sub St_A()
    Rm = Now + TimeSerial(0, 0, C_Con)
    Application.OnTime EarliestTime:=Rm, Procedure:=Sc_W, Schedule:=True
End Sub
Sub Ex()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
St_A
End Sub

ثم ضع الاكواد التاليه في حدث الملف ThisWorkbook

Private Sub Workbook_Deactivate()
Call St_A
End Sub
Private Sub Workbook_Open()
Call St_A
End Sub

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

 

حفظ كل دقيقة.rar

 

[aspiran]

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

[حمادة عمر]

اخي الكريم / عبد الغني

بارك الله فيك

هو كود لاخ كريم ... ولكن تخونني الذاكرة في ذكر الاسم

واصبح متعارف ويتم التعامل به

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

[أبو أنس80]

بارك الله فيك

[حمادة عمر]

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

[منياوى]

الف الف شكر

[حمادة عمر]

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

[محمد ابو البـراء]

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

الاستاذ حمادة عمر على هذا الكود الرائع المميز

[حاتم فتحي]

واللهان لم يكن سحرا فهو كا لسحر بارك الله فيك ولكل من شارك في هذا العمل العبقري

[Hosni2013]

جزيل الشكر على مجهودكم الرائع

[حمادة عمر]

تقبل تحياتي

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

[عاطف عبد العليم محمد]

استاذنا الكريم 

بارك الله فيكم  وجزاكم الله خير 

وجزى صاحب الكود خيرا 

وجزى من دلني عليه خيرا  ـ الاخ  رجب جاويش

 

وإذا كان المطلوب الحفظ كل 15 دقيقة مثلا

هل يكون السطر كالتالي 

 

(Rm = Now + TimeSerial(0, 14, C_Con

أم يكون كالتالي 

 

Public Const C_Con = 15

(Rm = Now + TimeSerial(0, C_Con, 0

 

ام كلاهما صواب أم ما الصواب 

 

 وما معنى هذا 

 

()Private Sub Workbook_Deactivate

Call St_A
End Sub

 

وفق الله الجميع لما يحبه ويرضاه

 

 

تم تعديل يونيو 20, 2013 بواسطه atef0977

[اسلام سيد]

اخي الكريم / عبد الغني

بارك الله فيك

هو كود لاخ كريم ... ولكن تخونني الذاكرة في ذكر الاسم

واصبح متعارف ويتم التعامل به

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

 

جزاك الله خيرا اخى حماده

 

الكود كان للاستاذ الفاضل / عباد ابو نصار

 

 

راجع الرابط التالى  http://www.officena.net/ib/index.php?showtopic=45107&hl=

[مصطفى كمال متولى]