كود فتح الفيجوال بيزك أو محرر الأكواد

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

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

خير الكلام  ما قلّ و دلّ  كما هو واضح من العنوان  أعرض عليكم كود فتح الفيجوال بيزك  أو محرر الأكواد

Sub OpenVBE()
    Application.Goto "OpenVBE"
End Sub

الكود يوضع  فى مديول عادى  ......   بس خلاص    تحياتى للجميع

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

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

هل تقصد أستاذي الغالي مختار حسين محمود أنّ هذا الكود يفتح الملفات محميّة محرّر الأكواد بكلمة مرور .. إذا كان ذلك كذلك .. سأعتبر كودك هذا " أضحيّتي لعيد الأضحى "

        فائق احتراماتي

تم تعديل سبتمبر 22, 2015 بواسطه عبد العزيز البسكري

[إبراهيم ابوليله]

اخى مختار

اين المزيد

مش قولتك ما تغيب

كود جميل تقبل تحياتى

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

السلام عليكم

لا يازيزو  مش للدرجة دى   ده مجرد أمر عادى للاكسل لفتح محرر الأكواد  ولو فيه حمايه مش هيشتغل

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

أشكرك أخى ابراهيم   أما عن الغياب والحضور دى مش مضمونه  الأعمار بيد الله  ومحدش ضمن الثانية اللى جايه فيها ايه ؟!     تحياتى

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

استاذ مختار

تسليم ايدك كود ممتاز

[الـعيدروس]

السلام عليكم

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

Private Sub باسوورد()
' الكود في وضع الخاص (مخفي) وحفظ اسم الكود بمسمى معين
' بإستخدام كلمة Private
' Private Sub باسوورد
    Call Un_VBPro("123") ' مثلا اذا الباسورد حق محرر الاكواد 123
End Sub
Private Sub Un_VBPro(ByVal Pwd As String)
    Dim vbProj As Object
    Set vbProj = ThisWorkbook.VBProject
    If vbProj.Protection <> 1 Then Exit Sub '
    Set Application.VBE.ActiveVBProject = vbProj
    SendKeys Pwd & "~~"
    Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
    Application.VBE.MainWindow.Visible = True
    DoEvents
     With Application
        .Goto "باسوورد"
     End With
End Sub

 

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

أستاذ خالد بارك الله فيك

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

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

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

Open Visual Basic Editor .rar

Open Visual Basic Editor .rar

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

بارك الله فيك أستاذنا القدير مختار حسين محمود

تسلم يا غالي على العيديّة الثمينة .. جزاك الله خيرًا و زادها بميزان حسناتك

                                                                                                  كل سنة و أنت طيّب يا طيّب