هل من الممكن غلق الملف تلقائيا

[أحمد فؤاد]

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

أساتذتي وإخواتي

أريد منكم طلب إن شاء الله يكون بسيط

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

" أي بمعني لو لم يتم إدخال بيانات خلال الفورم خلال خمسة دقائق يتم الحفظ وغلق الملف "

 

وطلب آخر 

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

أسف علي الإطالة 

وشكرا

[إبراهيم ابوليله]

اخى احمد

بالنسبه للطلب الثانى

شاهد هذا الموضوع ستجد فيه

ما تريد بإذن الله

http://www.officena.net/ib/index.php?showtopic=49561&hl=

[أحمد فؤاد]

شكرا لك أخي إبراهيم 

مجهودك واضح بالمنتدي 

وسع الله لك في رزقك

[إبراهيم ابوليله]

اخى احمد فى امان الله اتمنى لك التوفيق

اما بالنسبه للطلب الاول

فانا حاولت

وفشلت

وياريت لو نلاقى حل للموضوع ده

من احد عمالقة المنتدى

لكن فيه كود يقوم بعمل ذلك فى حالة عدم استخدام الفورم

شاهد المرفق

كود الذهاب الى شيت معين فى حالة ترك الشيت غير نشط.rar

[محمد الشابورى]

أعتقد كود الحفظ و الخروج بدون تحذير أو رسائل
 

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit

ننتظر رأى الخبراء

[أحمد فؤاد]

أخي إبراهيم أبو ليلة

بشكرك علي إهتمامك

وجزاك الله خيرا علي ماتقدمه من علم للمنتدي

الملف المرفق جيد ولكن ليس المطلوب لأن العمل كله خلال الفورم فقط ويكون الملف مخفي 

لك مني التحية والتقدير

[أحمد فؤاد]

أخي الحبيب / إبراهيم 

    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
    KeyAscii = 0
    MsgBox "لا يمكن كتابة حروف هنا"
End If

هذا الكود عند إستخدام فواصل للعلامات العشرية فإنه لايقبل

هل من الممكن أن يكون التنسيق

#00.00

وشكرا علي تواصلك معي

[إبراهيم ابوليله]

اخى الكريم

هل تقصد هكذا

Private Sub TextBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ChrW(KeyAscii) Like "[!0 #.-9]" Then KeyAscii = 0

End Sub

[أحمد فؤاد]

شكرا لك أخي / إبراهيم 

أنا تعبتك معايا فعلا كود رائع 

بارك الله فيك

[أحمد فؤاد]

أساتذتي الأعزاء هل يوجد لطلبي الأول طريقة أو كود 

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

[وليد فتحي]

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

أتفضل أخي الفاضل لعله المطلوب

كود غلق وحفظ تلقائي بعد فترة زمنية معينه تحددها أنت

ويمكنك من خلال السطر التالي داخل الكود تغيير المدة كما تريد

    vartimer = Format(Now + TimeSerial(0, 5, 0), "hh:mm:ss")

غير الرقم 5 الي أي رقم تريده حيث رقم 5 يدل على الدقائق

والصفر الموجود على يمين رقم 5 يدل على الثواني والموجود على اليسار يدل على الساعات

تقبل مروري

كود غلق وحفظ بعد مدة زمنية.rar

تم تعديل مارس 2, 2014 بواسطه وليد فتحي

[إبراهيم ابوليله]

اخى احمد

لا تعب ولا حاجه

انما هى واجباتتنا تجاه هذا المندى العظيم

[إبراهيم ابوليله]

اخى وليد

هذا الكود يقوم بغلاق الملف فعلا

لكن مع استخدم الفورم لا يتم عمل الكود بشكل صحيح

وحن فى انتظار ردود العمالقه

[أحمد فؤاد]

اخى وليد

هذا الكود يقوم بغلاق الملف فعلا

لكن مع استخدم الفورم لا يتم عمل الكود بشكل صحيح

وحن فى انتظار ردود العمالقه

أضم صوتي إلي صوت أخي إبراهيم

الفكرة كلها لو يوجد فورم