> نرجو من الاخوان المبرمجين لحل مشكلتي انا موظفة في شركة تحصيل ديون

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


رابط الملفات والفيديوة
https://drive.google.com/file/d/1mXpBWELBh4z3xQUWy2Y8KT9PEyS1Lo_6/view?usp=sharing

بالنسبة لطلبك يوجد خيار في خيارات الإكسيل يمكن من خلاله أن تحددى مدة الحفظ التلقائي وأقل مدة يمكن تحديدها دقيقة واحدة فقط وأعتقد أنها مدة لا بأس بها
أما إذا أردت الحفظ كل 5 ثواني فإليك الطريقة
ضع الكود التالي في حدث المصنف ThisWorkbook Module

الكود:

Private Sub Workbook_Open()
    Call Save_Workbook
End Sub

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

الكود:

Public Sub Save_Workbook()
    Dim currentTime As Date
    Const Sec = 5
   
    ThisWorkbook.Save

    currentTime = DateAdd("S", Sec, Now)
    Application.OnTime currentTime, "Save_Workbook"
End Sub

غيرى الرقم 5 والذي يمثل الثواني للرقم المطلوب
الآن قومى بحفظ المصنف وأغلقيه وأعدى فتحه وجربى بنفسك
للمزيد .. قم بالضغط على Alt+ F11 من لوحة المفاتيح ستجد محرر الأكواد نصب عينيك

اتبع التعليمات كما في الصورة

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

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

بالنسبة للموضوع الثانى
افتحى موضوع جديد وسارسل الرد عليه
بالنسبة للموضوع الاول تابعى الصور افضل من خلال الاكسل




ا

الامر التالى لوقف تحديث الشاشة فى وجود اكواد كثيرة يوضع فى الاول
Application.ScreenUpdating = False

'الامر التالى لتفعيل تحديث الشاشة ويوض فى الاسفل
Application.ScreenUpdating = True
وعموما الشرح فى فيديو يرفع الان اسمه
فورم اكسل تسجيل بيانات وترحيل بيانات لصفحة اخرى