مختار حسين محمود قام بنشر سبتمبر 22, 2015 مشاركة قام بنشر سبتمبر 22, 2015 السلام عليكم و رحمة الله و بركاته خير الكلام ما قلّ و دلّ كما هو واضح من العنوان أعرض عليكم كود فتح الفيجوال بيزك أو محرر الأكواد Sub OpenVBE() Application.Goto "OpenVBE" End Sub الكود يوضع فى مديول عادى ...... بس خلاص تحياتى للجميع 3 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر سبتمبر 22, 2015 مشاركة قام بنشر سبتمبر 22, 2015 (معدل) السلام عليكم و رحمة الله و بركاته هل تقصد أستاذي الغالي مختار حسين محمود أنّ هذا الكود يفتح الملفات محميّة محرّر الأكواد بكلمة مرور .. إذا كان ذلك كذلك .. سأعتبر كودك هذا " أضحيّتي لعيد الأضحى " فائق احتراماتي تم تعديل سبتمبر 22, 2015 بواسطه عبد العزيز البسكري 1 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر سبتمبر 22, 2015 مشاركة قام بنشر سبتمبر 22, 2015 اخى مختار اين المزيد مش قولتك ما تغيب كود جميل تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر سبتمبر 22, 2015 الكاتب مشاركة قام بنشر سبتمبر 22, 2015 السلام عليكم لا يازيزو مش للدرجة دى ده مجرد أمر عادى للاكسل لفتح محرر الأكواد ولو فيه حمايه مش هيشتغل وأنا بستعمل الكود ده كتير لسرعة فتح محرر الأكواد و تجربة الاكواد تحياتى أشكرك أخى ابراهيم أما عن الغياب والحضور دى مش مضمونه الأعمار بيد الله ومحدش ضمن الثانية اللى جايه فيها ايه ؟! تحياتى 2 رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر سبتمبر 22, 2015 مشاركة قام بنشر سبتمبر 22, 2015 استاذ مختار تسليم ايدك كود ممتاز 2 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 22, 2015 مشاركة قام بنشر سبتمبر 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 4 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر سبتمبر 22, 2015 الكاتب مشاركة قام بنشر سبتمبر 22, 2015 أستاذ خالد بارك الله فيك أستاذنا العيدروس شرفت بمروركم وشكرا على هذه الاضافة الأكثر من رائعة يا زيزو يا بسكرى العيديه بتاعتك أهه افتح الفيجوال المحمى بكلمة سر كل سنة وأنتم جميعا بخير Open Visual Basic Editor .rar Open Visual Basic Editor .rar 3 رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر سبتمبر 22, 2015 مشاركة قام بنشر سبتمبر 22, 2015 بارك الله فيك أستاذنا القدير مختار حسين محمود تسلم يا غالي على العيديّة الثمينة .. جزاك الله خيرًا و زادها بميزان حسناتك كل سنة و أنت طيّب يا طيّب 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.