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

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

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

كنت قدمت لكم موضوع سابق بعنوان

كود يحذف نفسه بعد ما يشتغل مرة واحدة على الرابط التالى
http://www.officena.net/ib/index.php?showtopic=57103

 واليوم أقدم لكم يمناسبة المولد النبوى الشريف :

 كيف يحذف كود  أخيه ويطرده بره الشقة  آســـــــــــف  الــــ  workbook
وذلك من خلال اطار فكاهى تعليمى

وقبل تحميل هذا الملف ضع فى اعتبارك ما يلى :

1- الموضوع ليس له علاقه بالواقع السياسى المصرى
2- الموضوع تعليمى  وتعليمى  بحت فى المقام الاول
3- الموضوع يعبر عن التعلم من خلال اطار فكاهى بعيد عن جفاف المواد العلمية

راحع أيضا تلك الموضوعات كمثال آخر عن التعلم من خلال الفكاهة
الاكسل فى امتحان  درس تعليمى
http://www.officena.net/ib/index.php?showtopic=57678#entry366848

اجعل الاكسل المتحدث الرسمى باسمك
http://www.officena.net/ib/index.php?showtopic=55015

4- لابد من تمكين الماكرو قبل مشاهده هذا العمل

الأكواد المستخدمة فى الموضوع مصحوبة بالشرح

Sub DELETE_Hamdan()
     
     ' الاعلان عن المتغير
     Dim vbCom As Object
     ' رسالة النطق بالحكم
     MsgBox "حكمت المحكمة على الكود قاتل المتظاهرين حمدان القط بالإعدام حذفاً ", vbInformation + vbMsgBoxRight, " القاضى العادل "
    
    Set vbCom = Application.VBE.ActiveVBProject.VBComponents
    ' تنفيذ الحكم على حمدان
    vbCom.Remove VBComponent:= _
    vbCom.Item("حمدان")
   ' رسالة تنفيذ الحكم

    MsgBox " تمام يا أفندم  تم تنفيذ الحكم ", vbInformation + vbMsgBoxRight, " عشمــــــــــاوى "

End Sub

الكودان التاليان خاصان  بإعادة محاكمة الكود حمدان ( استعادة الكود بعد حذفه )

Sub CloseMe()

' تحديد المدة الزمنية التى يتم بعدها تشغيل الكود "OpenMe"
    
    "Application.OnTime Now + TimeValue("00:00:10"), "OpenMe"
    
    Savechanges = False    ' لمنع الحفظ
    
    ThisWorkbook.Close False              ' لمنع غلق الملف
    
End Sub
 
Sub OpenMe()
 
     ' رسالة النطق بالحكم الجديد
     
     MsgBox " !!!حكمت المحكمة ببراءة حمدان القط  من قضية قتل المتظاهرين لأنه ما كانش يقصد  ", vbInformation + vbMsgBoxRight, " القاضى العادل قوى"
    
     
End Sub

الكود التالى هو الكود حمدان ( أى كود يؤدى الغرض )

Sub Killfile()
Dim MyFile As String    


On Error Resume Next  


MyFile = "c:\My Document\mokhtar.xls"    


kill MyFile


End Sub

 

ماذا نتعلم من هذا الموضوع
1- كيف يحذف كود كوداً غيره

2 - التراجع عن تنفيذ الماكرو
راجع هذا الموضوع كمثال للتراجع عن كود
undo macro by mokhtar (هديتى بمناسبة السنة الجديدة )

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

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

كود فى قاعة محكمة.rar

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