undo macro by mokhtar (هديتى بمناسبة السنة الجديدة )

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

السلام عليكم اخوانى وأحبابى

كل سنه وحضراتكم طيبين بمناسبة السنه الجديدة

 

نسأل الله عزوجل أن تكون سنة خير وسعاد ة علينا وعليكم وعلى مصر والعالم العربى والاسلامى

 

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

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

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

 

  بتتصرف ازاى فى هذه الحالة ؟

قدامك 3 طرق :

 

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

الثانية تقفل الاكسل بدون ما تحفظ  وتعيد فتح الملف من جديد

الثالثة تستخدم الكود التالى (  فكرته نابعة  من الطريقة الثانية بس بنريحك من قفل الملف وإعادة فتحه )

 

وهذا هو شرح  الأكواد  المستخدمة :

 

الكود التالى لحذف بيانات

Sub DELEDTE()
    ' تحديد مدى معين
    Range("a1 :c10").Select
   ' حذف البيانات
    Selection.ClearContents
    ' الوقوف على الخلية a1
    Range("a1 ").Select
    
End Sub

الكود التالى لتشغيل الكود الذى يليه بعد مدة زمنية  ومنع حفظ التغييرات الأخيرة فى الملف

Sub CloseMe()
  ' هنا نحدد المدة الزمنية التى يعمل بعدها الكود   "OpenMe" 
  
    Application.OnTime Now + TimeValue("00:00:10"), "OpenMe"
    ' هنا نحدد منع حفظ التغييرات ومنع غلق الملف نهائيا
    Savechanges = False
    ThisWorkbook.Close False
    
End Sub

الكود التالى للتأكيد على عودة البيانات

Sub OpenMe()

    ' رسالة تأكيد عودة البيانات
MsgBox " البيانات رجعت  ! خلى بالك يا أفندينا  مش كل مرة تسلم الجرة  " 
    
    
End Sub

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

الأولى التراجع عن ماكرو

 

الثانية : ودى مهمة خالص  وكتير مننا مش واخد باله منها وهى  (  كيفية تشغيل ماكرو عن طريق ماكرو آخر )

 

أتمنى أن يكون الموضوع أعجبكم ودعواتكم للمرحوم أبى ( دعوه بظهر الغيب تكون فى ميزان حسناتك )

 

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

وهذا  المرفق تطبيق على الموضوع                 والسلام عليكم  انتظرونى  قبل منتصف الليلة





 
 

undo macro by mokhtar.rar

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

[الجموعي]

أستاذي القدير

كل عام وأنت طيب والأمة الإسلامية جمعاء بالف خير

بارك الله فيك على هذه الرائعة من روائعك

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

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

كل سنة وأنت طيب أخى الجموعى

 

أخى الجموعى  أسألك  وأسأل كل من يعجبه الموضوع دعوة بظهر الغيب للمرحوم أبى  تكن لك ولأبى نورا  يوم القيامة

[أبو محمد عباس]

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

الاخ العزيز مختار حسين حفظكم الباري عز وجل

كل سنة وانتم تنعمون بالصحة والعافية

دائما تاتي بالجديد المفيد اثابكم الله 

وجعل عملكم في موازين حسناتكم

دمتم في رعاية الله وحفظه

تم تعديل يناير 1, 2015 بواسطه أبو محمد عباس

[محمد يوسف محمد1]

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

اللهم أمين

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

بارك الله فيك أخي مختار ..عندما أضغط على زر Restore تظهر رسالة خطأ من برنامج الإكسيل وليس رسالة خطأ من محرر الأكواد ..!!!

[KHMB]

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

 

اللهم اننا نسألك  ياواحد يا احد يافرد ياصمد يامالك الملك يابديع السموات والأرض ان تغفر وترحم لوالد مختار حسين ونجيه من الذنوب كما ينقى الثوب الأبيض من الدنس وبدله اهلا خير من اهله ودارا خير من داره وتقبله عندك واكرم مثواه ونزله وبدل سيئاته حسنات ووسع قبره واجعله روضة من رياض الجنة لا حفرة من حفر النار وان تغفر وترحم لاموات المسلمين والمسلمات والمؤمنين والمؤمنات الاحياء منهم والاموات برحمتك يا ارحم الراحمين آمين يارب.

تم تعديل يناير 1, 2015 بواسطه KHMB

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

أستاذى الفاضل أبو محمد عباس  تقبل الله دعاءك  ومتعكم بالصحة والعافية

 

 

أستاذى الفاضل محمد يوسف   آمين آمين أمين  أنتم ونحن  إن شاء الله رب العالمين .

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

http://www.officena.net/ib/index.php?showtopic=57755#entry368632

 

 

أستاذى العزيز ياسر خليل بوركت  ولا أدرى ما السبب عندك  ( احتمال يكون الزر مش مربوط  بالكود  CloseMe  )

 

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

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الكريم مختار

اسال الله ان تكون جمعه مياركة عليك وعلى جميع المسلمين ... 

جزاك الله كل الخير .. موضوع هام جدا

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

أخي مختار

ممكن أعرف إنت ليه حدد 10 ثواني عشان تظهر الرسالة (كان ممكن تستغنى عن السطر ده والكود ده كمان ..طالما إن الكود سيقوم بالإغلاق !!!!

يعني الفكرة كلها في الإغلاق بدون حفظ ؟؟؟؟؟

أنا اعتقدت إن الكود هيقوم بعملية التراجع بدون إغلاق الملف!!

أرجو توضيح الفكرة ..أكثر

هل ما قلته صحيح أم هناك لبس

جزيت خيراً على إبداعاتك المستمرة ، ولكنك تعرف أصول الأكواد الجديدة لابد من مناقشتها للوصول إلى أفضل أداء.

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

أستاذى الفاضل أبوحنين 

وجعلها عليك وعلى كل ذويك جمعة مباركة

 

 

أستاذى ياسر  الفكرة بسيطة زى ما حضرتك قلت    فى الإغلاق بدون حفظ 

 

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

  

ومش كده وبس  فى ثنايا الموضوع بتعلم حاجة تانى غير التراجع ألا وهى  (  كيفية تشغيل ماكرو عن طريق ماكرو آخر )

 

 يعنى الموضوع موضوعين  1*2

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

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

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

 

دي بقا اللي مش عايزة تظبط معايا ..الملف يغلق وبس .. مش بيفتح مرة تانية !!!!!!!!!

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

أخى ياسر لا أدرى ما السبب عندك

والملف شغال معاى 10 / 10  وكمان عند الزملاء لان ما فى حد اشتكى

جرب اعادة تحميل الملف

على فكرة أنا شغال على 2010

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

[صلاح الصغير]

ا / مختار رائع

بارك الله فيك 

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

 

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

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

هذا الموضوع مشابه تماماً لموضوع الأخ مختار

http://www.officena.net/ib/index.php?showtopic=60923

 

فوجب عليا الاعتذار .. للأخ الحبيب الغالي مختار .. وربنا يكفيني ويكفيه شر النار .. ويجعلنا من الصالحين الأبرار .. ويديم علينا نعمه ليل ونهار .. ويبعد عننا الأشرار ..

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

عجبتني القافية فقلت أكمل يا عبد الستار

تقبلوا تحياتي

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

تقبل الله دعاءك  أخى ياسر يا أبو الأفكار 

أنت لم تخطئ كى تعتذر يرحمنا ويرحمك العزيز الغفار

وليس بين الإخوة إلا الحب والتقدير  ولا للأعذار .....................أخوك مختار

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

الأعضاء هيقولوا علينا سبنا الإكسيل ، وبنكتب أشعار ..

ومش بعيد يدعوا علينا ندخل النار ..

عشان ساينين طلباتهم ونازلين يا هزار ..

تقبل ودي وأشعاري أخي الحبيب مختار ..