Delete All Macros

[Yasser Fathi Albanna]

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

أحبائى فى الله تقبلوا جميعا تحياتى

أقدم لكم اليوم كود لعله يفيد

Delete All Macros

Sub DeleteAllMacros() 'Excel vba to delete all macros in new workbook.

Dim otmp As Object

 

    With ActiveWorkbook.VBProject

        For Each otmp In .VBComponents

            If otmp.Type=100 Then

                otmp.CodeModule.DeleteLines 1, otmp.CodeModule.CountOfLines

                otmp.CodeModule.CodePane.Window.Close

            Else: .VBComponents.Remove otmp

            End If

        Next otmp

    End With

End Sub

 

[saad abed]

وعليكم السلام اخى م/ياسر فتحى

كود ممتاز من الممكن استخدامه فى الحماية

ان الاكواد تلغى فى حالة فتح الملف بطريقة غير شرعية

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

تسلم حبيبي الغالي  م/ياسر

اراك شعلة نشاط في المنتدى

زادك الله من علمه

وبارك الله فيك

[Yasser Fathi Albanna]

اخى الحبيب أستاذى الفاضل / سعد عابد

شرفت بمرورك الكريم

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

الأخ الحبيب الغالى والإسم الغالى / ياسر العربى

يسعدنى ويشرفنى دائما مرورك الكريم

شكرا لدعائك الطيب ولك بمثله

فأنت أيضا شعلة دائما تنير المنتدى من النشاط

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

[عبد العزيز البسكري]

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

كثرت هداياك أخي الغالي " ياسر فتحي البنّا " ..

بالوقت الذي إنكمشنا نحن .. بسبب برودة الجو .. و انكمشتْ أفكارنا .. تمدّدت خلاياكَ أنتَ ..

باسم الله ما شاء الله

ثقْ أخي العزيز أنّي من هواة متابعة أفكارك و أكوادك و إطلالاتك الفريدة ..

جزاك الله خيرًا و زادك من علمه و فضله

فائق إحتراماتي و إعجاباتي

 

[Yasser Fathi Albanna]

حبيبى الغالى الأخ العزيز / عبد العزيز

أجمل هديه هو مرورك الدائم على موضوعاتى وتشريفك لها

وبعدين أنا من أشد المعجبين بمواضيعك وتفاعلك الدائم مع الإخوة الأعضاء بمساعدتهم

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

وبعدين إن كان الجو شديد البرودة فالقلب والعقل دائم التفكير فى إعطاء منتدانا العظيم كل ما يقدرنا الله عليه من أعمال تفيد الجميع

وفقنا الله وإياكم لما فيه الخير

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

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

وفقك الله لكل ما يحب ويرضى

رغم أن الكود موجود في مكتبتي الخاصة إلا أنني معجب بالموضوع ..

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

بس مش مهم مجتش من حد غريب ..جات من ياسر بردو (وبردو ملهاش علاقة بالبرد ولا ليها علاقة بالكلمة الفرنسية Pardon ..إنما هي في اللغة العامية المصرية تعني أيضاً)

تقبل تحياتي

[Yasser Fathi Albanna]

حبيبى وأستاذى الغالى / ياسر خليل

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

برده أخوك ياسر إللى عرضه

مجتش من حد غريب

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