تشغيل آلى لكود إذا ترك ملف الاكسل بدون استخدام

[مختار حسين محمود]

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

كنت منذ فترة قدمت لحضراتكم موضوعا بعنوان : إغلاق آلى لملف اكسل إذا ترك بدون استخدام

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

واليوم أعرض على حضراتكم موضوعا شبيها  كما يبدو من عنوان الموضوع : كيفية تشغيل كود ( أى كود ) إذا ترك ملف الاكسل بدون استخدام

الطريقة :

1-  ضع الكود التالى فى حدث الملف

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ResetTime  ' كود اعادة المدة كلما حدث تنشيط شيت
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
ResetTime   ' كود اعادة المدة كلما حدث تغيير فى البيانات
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ResetTime  ' كود اعادة المدة كلما حدث تغيير فى شيت
End Sub

ضع الكود التالى بمديول عادى

Public MyTime As Date
Sub Auto_Open()
MyTime = Now + TimeSerial(0, 0, 30) ' بداية عمل الكود  بعد فتح الملف
Application.OnTime MyTime, "MyMacro"
End Sub
Sub CancelOnTime()
    Application.OnTime MyTime, "MyMacro", , False
End Sub
Sub ResetTime()
    On Error Resume Next
    Application.OnTime EarliestTime:=MyTime, Procedure:="MyMacro", Schedule:=False
    MyTime = Now + TimeSerial(0, 1, 0)    ' المدة الزمنية التى يعمل بعدها كودك
    Application.OnTime EarliestTime:=MyTime, Procedure:="MyMacro"
    On Error GoTo 0
End Sub

Sub MyMacro()
 ' ضع كودك الذى تريد تشغيله اذا لم يكن الملف نشطا
 ' مثال
  Shell "C:\WINDOWS\system32\Bubbles.scr /S", vbMaximizedFocus
 
 
 
 '  انه كودك بالأمر التالى
  ResetTime

End Sub

3 - احفظ الملف و أعد فتحه 

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

تحياتى لكم وأتمنى أن ينال الملف اعجابك

المرفق :

 

تشغيل آلى لكود إذا ترك الاكسل بدون استخدام.rar

تم تعديل يناير 24, 2016 بواسطه مختار حسين محمود

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

إبداع ورا إبداع ...تميز بلا حدود

فكر جديد وعصر جديد لك أخي الحبيب مختار

تعجبني موضوعاتك المميزة والفريدة من نوعها

تقبل وافر تقديري واحترامي

 

[نايف - م]

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

سأضع كود حفظ لملف العمل عندما أتوقف عن العمل

 

 

[نايف - م]

أخي الكريم

بعد التطبيق البرنامج يعطي فقط عند الفتح هذه الرسالة

ممكن أعرف شو المقصود

شكرا

[أبوبسمله]

جزاك الله خيرا استاذى العزيز مختار

بالتوفيق

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

10 ساعات مضت, نايف - م said:

أخي الكريم

بعد التطبيق البرنامج يعطي فقط عند الفتح هذه الرسالة

ممكن أعرف شو المقصود

 

شكرا

لابد وأن لديك في موديول آخر إجراء فرعي بنفس الاسم ... قم بدمج الأسطر في كلا الكودين معاً لأن الإجراء خاص بالتنفيذ عند فتح المصنف

[مختار حسين محمود]

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

أخى نايف
مشكور على مرورك  وعلى حرصك على التطبيق

بالنسبة للرسالة الظاهرة لك  : يظهر هذا النوع من الرسائل اذا كان فى الملف كودين يحملان نفس الاسم
تأكد من أن الملف ليس فيه كود فى حدث الملف يبدأ بهذا الاسم :Private Sub Workbook_Open
لان هذا الاسم يساوى Auto_Open    حاولت أمس أن أرد عليك لكن النت فصل امبارح  أثناء الرد

لكن  و رانا مشرف و مراقب نشيط  هو حبيبنا فى الله ياسر خليل قام بالواجب وزيادة

أخى احمد الفلاحجى
مشكور على مرورك  وعلى حرصك على زيادة المعرفة

 

[أبوبسمله]

أحبكم فى الله 

وادعو الله لكم من كل قلبى بان يجمعنا واياكم فى جنة الخلد إن شاء الله برحمته وغفرانه إنه قادر على كل شىء 

وأن ييدكم الله من فضله وعلمه بما تقومون به من تيسير على السائلين 

اخوكم الصغير المحب لكم احمد

[مختار حسين محمود]

الله الله على الكلمات الجميله  التى تثلج القلب أخى أحمد

أحبك الذى أحببتنا فيه  وتقبل دعاءك و جزاك عنا خيرا  و زادك من علمه و فضله

كل التحية و التقدير لشخصكم النبيل        أخيك مختار

[ياسر العربى]

دائما مميز بمواضيعك استاذنا الغالي/ مختار

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

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

تقبل تحياتي

 

 

[حسام ميلكانا]

الله يبارك اينا فيكم ولا يحرمنا منكم ابدا ان شاء الله

جزاك الله كل خير استاذنا محمود حسين

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

[Yasser Fathi Albanna]

أخى الحبيب الغالى المتميز دائما / مختار

بوركت وسلمت يمينك وأدام الله عليك علمه وفضلة

رائــــــــــــــــــــــــــــــــــــــــع

تقبل خالص تحياتى وتقديرى

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

فينك يا ريس ياسر ..غطسان بقالك فترة فين؟؟؟

لعل غيابك عن إخوانك خير إن شاء الله

تقبل تحياتي

[رجب جاويش]

جزاك الله كل خير على هذا الابداع

[Yasser Fathi Albanna]

حبيبى الغالى /ياسر خليل

أشكرك على إهتمامك بمتابعت حضرتك ليا

أنا موجود وأتابع المنتدى يوميا ولكن سريعا لأننى مشغول هذه الأيام فلقد أكرمنى الله بترقية كبيرة لمنصب كبير 

ومشغول جدا جدا فى تخطيط وتطوير العمل بشكل أفضل

دعوات حضرتك ليا

تقبل خالص تحياتى وتقديرى

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

ألف مبروك الترقية وإلى المزيد دائماً أخي العزيز ياسر البنا

تقبل وافر تقديري واحترامي

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

اخى واستاذنا مختار

انا شخصيا لازم اتابع موضوعاتك

جيدا

اعمالك دائما ما تكون جميله ومفيده

بارك الله فيك

تقبل تحياتى

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

اقتراح على مسؤولي منتدى أوفيسنا الكرام

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

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

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

أرجو أن تأخذوا كلامي هذا بعين الاعتبار لأنني ناصح لمنتدانا ...ثم إنه لن يستطيع الغياب عنا طويلاً كونها مهمة متابعة طلبات إخوته والإتيان بكل ما هو جديد ومفيد 

والسلام عليكم..

تم تعديل يناير 26, 2016 بواسطه محمد حسن المحمد

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

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

تهـــــــــــــــــانينا الحــــــــــــــارة 

15 ساعات مضت, م / ياسر فتحى البنا said:

لقد أكرمنى الله بترقية كبيرة لمنصب كبير 

ومشغول جدا جدا فى تخطيط وتطوير العمل بشكل أفضل

أخي الحبيب م / ياسر فتحي البنا

مباركة عليكم الترقية وإلى المزيد من العمل الصالح 

الذي نرجو أن يكون لنا ذخراً ليوم تشخص فيه الأبصار

والسلام عليكم

تم تعديل يناير 26, 2016 بواسطه محمد حسن المحمد

[مختار حسين محمود]

أخى الغالى الشقى الغلاباوى مشرفنا الجميل ياسر العربى حزاكم الله خيرا

أخى و حبيبى فى الله حسام ميلكانا جزاكم  الله خيرا    أسعد بمرورك  دائما

أستاذنا الكبير الخلوق رجب جاويش يعلم الله أن مرورك شرفنى و أسعدنى كثيرا

أخى و حبيبى فى الله ياسر فتحى  الأروع مرورك الجميل و الرائع  مبروووووووووك الترقية

أخى الغالى ومشرفنا الخلوق ابراهيم أبو ليله بارك الله فيك و جزاكم خيرا  أسعد بمرورك  دائما

 

أخى و أستاذى محمد حسن  بداية أشكرك جزيل الشكر على هذه الثقة الغالية

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

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

و يعلم بعض أحبابى فى المنتدى  مثل أخى أبا البراء أننى آخذ كل فترة غطسا

بعيدا عن المنتدى أبحث هنا وهناك عن كل غريب و فريد من البرامج والأكواد

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

و مرة تانيه أشكرك أستاذى الفاضل محمد حسن على الثقة الغالية  

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

تم تعديل يناير 26, 2016 بواسطه مختار حسين محمود

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

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

المسؤولية ليست قيداً بل هي الحرية ...فالحرية مسؤولية لأنها ضمن ضوابط ...كلكم خير وبركة ...ولكن إن اجتمع أكثر من رأي على كلامي الذي قلته فإنني أتفاءل بأن ستكون مشرفاً مبدعاً حراً 

وليس أجمل على الإنسان من أن يحمل في جعبته زاداً كبيراً بمساعدة الآخرين ..وأنت ممن يساعد ولا يقصر ولكنني أرجو أن يكون لكم دوراً أكبر ...أما عن نفسي فإنني دالٌّ على الخير ..وناصح أمين إن شاء الله تعالى ... كما أنني أرى أن المصلحة العامة مقدمة على الخاصة ...كم من الناس سيدعو لك إن واظبت وثابرت واجتهدت في خدمة العلم ونشره بينهم..وأخيراً أقول أنت وما تشاء..لا أستطيع إلزامك بما قلت ولكن رأي ناصح أحببت أن يسمعه من بيدهم مقاليد أمور هذا المنتدى الكريم 

والسلام عليكم.

[مختار حسين محمود]

أستاذى الفاضل محمد حسن 

أشكرك جزيل الشكر من كل قلبى على هذا الكلام فى حقى 

لكنى أستاذى الفاضل أفضل البحث عن المتابعة  فهو يستهوينى أكثر

تقبل خالص التقدير و الاحترام  لشخصكم النبيل

[Yasser Fathi Albanna]

6 ساعات مضت, محمد حسن المحمد said:

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

تهـــــــــــــــــانينا الحــــــــــــــارة 

أخي الحبيب م / ياسر فتحي البنا

مباركة عليكم الترقية وإلى المزيد من العمل الصالح 

الذي نرجو أن يكون لنا ذخراً ليوم تشخص فيه الأبصار

والسلام عليكم

أبى وأستاذى ومعلمى القدير / محمد حسن المحمد

كم أنا سعيد جدا جدا بتهنئة حضرتك لى 

الرجاء الدعاء لى من حضرتك 

تقبل خالص تحياتى وتقديرى لشخصكم الكريم