هل يوجد كود ( لحفظ ملف الاكسل ) كل 5 او 10 ثواني ..

[مشعل]

السلام عليكم ورحمة الله وبركاته 

مرحباً الجمبع

 

احتاج لكود او طريقه ( تلقائياً )

تقوم بحفظ ملف الاكسل ( كل ٥ او ١٠ ثواني ) 

 

وفقكم الله

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

أخي الكريم مشعل

أهلاً بك في المنتدى ونورت بين إخوانك

يرجاء تغيير اسم الظهور للغة العربية والإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى

 

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

أما إذا أردت الحفظ كل 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 والذي يمثل الثواني للرقم المطلوب

الآن قم بحفظ المصنف وأغلقه وأعد فتحه وجرب بنفسك

[علي حيدر]

اخي الكريم مشعل يوجد هذا الكود هو حفظ تلقائي جرب الكود التلي .

Sub workbook_beforeclose(cancel As Boolean))
If Me.Saved = False Then Me.Save
End Sub

ضعه في ThisWorkbook

اذكرنا بالخير

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

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

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

عموماً بارك الله فيك وجزيت خيراً على إثرائك للموضوع

تقبل تحياتي

[مشعل]

هلا ومرحباً اخوي ( ياسر )

بالنسبه للنك نيم ، حاولت تعديله وللاسف لم اجد الخيار لذلك ، حفظك ربي

-

 

جزااااك الله خير فعلاً هذا هو المطلوب 

وهت التحديث كل ٥ ثواني ..

 

( فضلاً وليس امراً ) 

هل ممكن ارفاق ملف اكسل بسيط به الكود السابق ،

لا اعلم الاكسل عندي ليس به vb

زادك الله من علمه

ونفع بك

 

--

 

اخوي علي شكراً لك

ولمشاركتك

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

أخي الكريم مشعل

لو اطلعت على التوجيهات ستجد فيه طريقة تغيير اسم الظهور لديك ..

قم بالإطلاع على الرابط التالي لمعرفة البدايات في التعامل مع محرر الأكواد .. وهو موضوع مهم جداً

الرابط من هنا

 

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

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

[مشعل]

جزاك ربي الجنـــــــــــــــــــــــــــه

الشررررررررررررررررررح وافي وميه ميه

لاحرمك الله الاجر

 

لكن تظهر لي هذه المشكله 

كل 5 ثواني تظهر لي

هل من حل لها

مع العلم اني قمت بتفعيل الماكرو كاملاً

( صوره مرفقه )

وفقك ربي

تم تعديل يوليو 22, 2016 بواسطه مشعل

[مشعل]

من لديه حل للمشكله يفيدنا وفقكم الله

لعل الاستاذ ياسر مشغول , جزاه ربي خير

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

أخي الكريم مشعل

إليك الفيديو التالي فيه توضيح لحل المشكلة .. ويرجى الإطلاع على موضوع "بداية الطريق لإنقاذ الغريق" لمعرفة أساسيات التعامل مع محرر الأكواد

رابط الفيديو

رابط الموضوع

http://yasserkhalilexcellover.blogspot.com.eg/2016/04/blog-post.html