كود للحفظ التلقائي كل دقيقتين أو كل خمس دقائق

[saraali]

نرجو من الاخوان حل مشكلتي انا موظفة في شركة تحصيل ديون وابحث عن كود لملف اكسل يقوم بعملية حفظ تلقائي حسب مدة اخيتار الوقت كل دقيقتين او كل خمس دقائق 

هذا الكود اعطاني احد الشباب وشغال في عملية الحقظ التلقائي لكن للأسف وجهتني مشاكلة يقوم الاكسل بعملية رفرش ويفتح ملف قديم من نفسة

وايضا عند فتح ملفين اكسل يقوم بعملية رفرش لجميع ملفات الاكسل المفتوحة الحالية.

مرفق لكم ملف يحفظ كل 5 ثواني

واتمنى من الأخوان المبرمجين لحل المشكلة وأكون شاكراً وممنون لة .

thisworkbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:02:00"), "Save1"
End Sub
 

Modul1

Sub Save1()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True

Application.OnTime Now + TimeValue("00:02:00"), "Save1"
End Sub
 

 

 

حفظ البيانات كل 5 ثواني.xlsm

[Ali Mohamed Ali]

السلام عليكم -اهلا بك بالمنتدى-هذا ملف للحفظ كل دقيقة

اولا فتح مديول جديد ووضع هذا الكود به

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

وهذ هو الملف

 

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

[saraali]

اخ / ali mohamed 
أود أن أشكرك كامل الشكر وعظيم المودة لسرعة ردك على تساولى وأحب أن أخبرك ان المشكلة لم تنحل المشكلة مجرد ما افتح ملف الشركة مع ملفك اللي ارسلته لي و غيرت الوقت وحطيت بدل من دقيقة الى 5 ثواني او اخليها دقيقة للأسف بيظهر لي كل فترة رفرش لجيمع الملفات الاكسل المفتوحة او الحالية ويلخبطني في العمل فيك تشوف حل مشكلة عملية الرفرش على الملفات الاكسل المفتوحة وايضا عند اقفل الملف اللي ارسلتة لييقوم بفتحة من نفسة.

 وجزاكم الله كل الخير.  مرفق لك على الرابط فيديوه بالمشكلة اللي تظهر لي 

https://drive.google.com/file/d/13ReJlHoFnaZtIvNBEM_T4BupelvHOmqv/view?usp=sharing

تم تعديل أبريل 12, 2019 بواسطه saraali

[saraali]

استاذ / ali mohamed 

اريد ان تفيدنا في الموضوع انا مسوؤلة عن 20 موظفات  حيث شركتنا تتعامل مع ملفات الاكسل عبارة عن شركة تحصيل ديون
ناخذ الملف الاكسل من الشركة المتعاقدة كل يوم بيرسلونا ملف اكسل واحد فيه اكثر من 6000 عميل اقوم بتقسيمه على الموظفات كل موظفة تاخذ 300 عميل وعندي 20 موظفة انشئ تقريبا 20 ملف اكسل فية له 300 عميل واوزع الملفات  عبر الشبكة لجميع الموظفات عند التوزيع الملف يحتاج الى وقت وجهد هل في مجال او طريقة اعمل مشاركة الملف الاكسل بدلا من اعطى كل موظفة ملف خاص بها.