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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع العديد من الملفات في ملف واحد اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





كود لحذف أكواد VBA  أو Moudle كامل به أكواد

هل هناك كود يمكن استخدامه لحذف أكواد VBA أو Moudle كامل به أكواد في حال تحقق شرط معين مثلا إذا كانت قيمة الخلية A1 = ..



02-01-2018 09:41 مساء
أباالحسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
قوة السمعة : 687
الاعجاب : 1
 offline 
هل هناك كود يمكن استخدامه
لحذف أكواد VBA  أو Moudle كامل به أكواد
في حال تحقق شرط معين 
مثلا  إذا كانت قيمة الخلية A1 = 0
يتم حذف Moudle
أو حذف الكود المسمى AAA  والكود BBB




03-01-2018 08:55 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1765
الجنس : ذكر
الدعوات : 19
قوة السمعة : 18570
الاعجاب : 74
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود لحذف أكواد VBA  أو Moudle كامل به أكواد

تفضل اخى الكريم الكود التالى يقوم بحذف موديول اذا تحقق الشرط


Sub Alsqr_Remove_Module()
Dim vba As Object
Set vba = Application.VBE.ActiveVBProject
If Range("a1").Text = 0 Then
With ActiveWorkbook.VBProject.VBComponents
'فى السطر التالى حدد الموديول المراد حذفه حاليا الموديول 1
.Remove .Item("Module1")
End With
End If
End Sub

الكود التالى يحذف كود محدد


Sub Alsqr_Remove_Code()
Dim a As Long
Dim b As Long
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
'Alsqr فى السطر التالى والذى يليه سيقوم الكود بحذف الكود المسمى بـ
a = .ProcStartLine(procName:="Alsqr", prockind:=vbext_pk_Proc)
b = .ProcCountLines(procName:="Alsqr", prockind:=vbext_pk_Proc)
.DeleteLines a, b
End With
End Sub




توقيع :الصقر

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


08-01-2018 03:57 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
قوة السمعة : 687
الاعجاب : 1
 offline 
look/images/icons/i1.gif كود لحذف أكواد VBA  أو Moudle كامل به أكواد
جزاكم الله خيرا 
تم الحل بنجاح
لكن عند الضغط على الازار التى كان بها أكواد وحذفت
يعطى رسالة بذلك (ان الكود غير موجود )
فهل يمكن التخلص من هذه الرسالة أو عدم ظهورها




08-01-2018 05:00 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif كود لحذف أكواد VBA  أو Moudle كامل به أكواد
بارك الله فيك أخي الغالي حسام ومشكور على الأكواد الرائعة




08-01-2018 09:11 مساء
مشاهدة مشاركة منفردة [4]
أباالحسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
قوة السمعة : 687
الاعجاب : 1
 offline 
look/images/icons/i1.gif كود لحذف أكواد VBA  أو Moudle كامل به أكواد
جزاكم الله خيرا
لكن حتى مع وضع السطر 
On Error Resume Next
 
فى الكود فيتم حذف الكود بالكامل اصلا 

فلو توجد طريقة افك الرتباط بالاكواد لمحذوفة أو اى طريقة اخري
اكون شاكر لكم




08-01-2018 10:51 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif كود لحذف أكواد VBA  أو Moudle كامل به أكواد
ما الغرض أصلاً من حذف الأكواد ... إذا عرف السبب بطل العجب !!

وعموماً لفك الارتباط بزر أمر معين .. جرب أسطر زي كدا
    With Sheet1
        .Shapes("Button 1").OnAction = ""
    End With

سبقتنى بالكود كنت داخل اضعه فى بوست جديد اسال الله تعالى ان يدخلك الجنه وتعبر الصراط مسرعا


تم تحرير المشاركة بواسطة :الصقر
بتاريخ:09-01-2018 07:50 صباحا





10-01-2018 09:19 مساء
مشاهدة مشاركة منفردة [6]
أباالحسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 305
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
قوة السمعة : 687
الاعجاب : 1
 offline 
look/images/icons/i1.gif كود لحذف أكواد VBA  أو Moudle كامل به أكواد
جزاكم الله خيرا 
الاخ الفاضل / ياسر خليل

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







الكلمات الدلالية
لحذف ، أكود ، VBA  ، Moudle ، كامل ، أكواد ،


 







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

الساعة الآن 01:10 مساء

أعلن هنا
أعلن هنا
أعلن هنا