حزف جميع الماكرو

[خالد الشاعر]

السادة الخبراء

هل ممكن عمل ماكرو يمسح جميع الماكرو التى بالملف

و اظهار جميع الصفحات و شريط الاوامر

وذلك فى تاريخ محدد احددة انا

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

ولكن بها مشكلة

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

del-all.rar

[عبد الفتاح كيرة]

هل جربت هذا؟

Dim m As Object

        Dim mCtr As Integer

        Dim oCtr As Variant

        Dim vbP As Object

        Dim strNames As String

        strNames = ThisWorkbook.Name

        mCtr = 0


        Set vbP = Workbooks("" & strNames).VBProject.VBComponents


        For oCtr = 1 To vbP.Count

            mCtr = mCtr + 1

            If vbP(mCtr).Type = 1 Then

               Set m = vbP

                   m.Remove vbcomponent:=m.Item(m(mCtr).Name)

               mCtr = mCtr - 1

            End If

        Next

[خالد الشاعر]

استاذ kemas

اشكرك على سرعة الرد و الاهتمام

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

Set vbP = Workbooks("" & strNames).VBProject.VBComponents

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

[عبد الفتاح كيرة]

نعم

تحتاج إلى السماح بالوصول للمشروع

انقر زر أوفيس

اختر خيارات

مركز التوثيق\

إعدادات مركز التوثيق

إعدادات الماكرو

ثم حدد

" الثقة فى الوصول إلى طراز كائن مشروع vba

ثم موافق

[خالد الشاعر]

اشكرك استاذ kemas

عمل الماكرو بنجاح

تسلم ايدك ولكن لى سؤال هل ممكن عمل هذه الخاصية

" الثقة فى الوصول إلى طراز كائن مشروع vba

ضمن الماكرو

وجزاك الله خيراًَ

[خالد الشاعر]

فى مشكلة اخرى

Private Sub

لم يمسح الماكرو الموجود فى الصفحات

Private Sub

فهل يوجد حل لهذا

وشكرا

[خالد الشاعر]

_{اسف استاذ kemas}

_{لو عامل حماية للماكرو}

_{لا يعمل ماكرو المسخ}

_{و شكراً}

[عبد الفتاح كيرة]

طبعا أستاذ khhanna

نفذ الماكرو بعد فك الحماية

البقية تأتى إن شاء الله أستاذ khhanna

[عبد الفتاح كيرة]

جرب هذا الماكرو الخطير

For i = 1 To 25

On Error Resume Next

Application.VBE.ActiveVBProject.VBComponents.Remove _

            Application.VBE.ActiveVBProject.VBComponents.Item("Module" & i)

            Next i

هذا يحذف 5 موديولات

لاحظ أن هذا "Module" & i اسم الموديول

تم تعديل ديسمبر 10, 2010 بواسطه kemas

[خالد الشاعر]

استاذ Kemas

تسلم ايدك و جزاك الله خيراً

عمل رائع

ولكن هل ممكن فتح الحماية للماكرو بدون تدخل

لكى ينفذ الماكرو اتوماتك

وشكرا

[عبد الفتاح كيرة]

هذه هى المعضلة

لم أصل لحل لها بعد

[خالد الشاعر]

كان الله فى العون

انشاء الله توفق فى حل

لكى يكتمل هذا العمل المهم

وجعلك الله عوناً للاخرين

وشكراً

[خالد الشاعر]

استاذ Kemas

وجدت على النت هذا الماكرو

يفتح الحماية لل VBA و يضع الباسورد فى ملف اخر

فهل ممكن تعديل هذا الملف بحيث يعمل UnprotectProject فقط

دون فتح ملف اخر و لصف الباسورد فية

الباسورد 11

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

UnprotectProject.rar

[عبد الفتاح كيرة]

أظن هذا الملف يلح مع نسخة

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

[خالد الشاعر]

استاذ Kemas

جرب هذا الماكرو

Sub TestUnprotectProject()

With Application

'Go to the VBE

.SendKeys "%{F11}", True

'Activate Project Explorer window

.SendKeys "^r", True

.SendKeys "~", True

'Enter your password - - this example is "Password"

.SendKeys "11"

'Enter again

.SendKeys "~", True

End With

End Sub

اشتغل معايا كويس

[عبد الفتاح كيرة]

هل تستخدم أوفس 2003 ؟

مع 2007 نفس الشىء

لم يتمكن من فتح الماكرو

[خالد الشاعر]

استخدم اوفس 2003

[عبد الفتاح كيرة]

نعم

كل هذا يعمل معك

مع 2007 تخفيض الماكرو لا يتم بالكود

ما زلنا نبحث عن ذلك

نسأل الله التيسير

[خالد الشاعر]

جمعت ماكرو

مسح الماكرو

و تحويل المعادلات لقيم فى هذا الملف

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

فهل ممكن تعديل هذا الى ورقة 1

وشكرا

del-all 100.rar

[عبد الفتاح كيرة]

انسخ كل المودويلات و الصق فى مودويل الورقة

del-all 100-kemas.zip

[خالد الشاعر]

استاذ Kemas

لا يعمل الماكرو عند نسخة فى الورقة

فى ماكرو Auto_open

لتحويل المعادلات لقيم و ماكرو لفتح VBA

فى هذه الخطوة يقف على صفحة ال Vba

اريدة ان ينتقل اتوماتك الى اى ورقة من الملف

وشكراً