رجب جاويش قام بنشر يونيو 19, 2013 مشاركة قام بنشر يونيو 19, 2013 (معدل) أقم لكم اليوم كود لنسخ موديول Module من ملف اكسيل لآخر هذا هو الكود Const File1 As String = "book1" Const File2 As String = "book2" Const Old_mod As String = "Module1" Const New_mod As String = "ragab" Sub CopyModule() Dim Tmp As String On Error Resume Next F_path = ActiveWorkbook.Path Tmp = F_path & "\" & "TempFile.bas" Workbooks(File1).VBProject.VBComponents(Old_mod).Export Filename:=Tmp Workbooks.Open F_path & "\" & File2 Workbooks(File2).VBProject.VBComponents.Import(Filename:=Tmp).Name = New_mod Kill Tmp End Sub الجزء العلوى من الكود نحدد فيه بيانات الملفين والموديولات كالآتى السطر الأول Const File1 As String = "book1" نحدد فيه اسم الملف الاول السطر الثانى Const File2 As String = "book2" نحدد فيه اسم الملف الثانى السطر الثالث Const Old_mod As String = "Module1" نحدد فيه اسم الموديول المراد نسخه السطر الرابع Const New_mod As String = "ragab" نحدد فيه الاسم الجديد للموديول فى الملف الثانى ملحوظة مهمة لكى يعمل الكود بشكل سليم لابد من الخطوتين التاليتين أولا 1- فى محرر الاكواد (VBA editor ) اذهب الى أدوات (Tools) ثم مراجع (References ) وضع علامة صح أمام المرجع Microsoft Visual Basic For Application Extensibility كما فى الصورة 2- فى واجهة الاكسل العادية من قائمة أدوات (Tools ) اختار ماكرو (macro ) ثم الأمان ( security) ثم من التبويب ( trusted publishers) ضع علامة صح أمام عبارة ( Trust access to visual Basic project ) كما فى الصورة نسخ موديول من ملف لآخر.rar تم تعديل يونيو 19, 2013 بواسطه رجب جاويش 2 رابط هذا التعليق شارك More sharing options...
وائل عبد الصمد قام بنشر يونيو 19, 2013 مشاركة قام بنشر يونيو 19, 2013 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 19, 2013 الكاتب مشاركة قام بنشر يونيو 19, 2013 أخى الفاضل / وائل عبد الصمد شكرا جزيلا وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 19, 2013 الكاتب مشاركة قام بنشر يونيو 19, 2013 تكملة للموضوع اليكم طريقة حذف موديول عن طريق الكود هذا هو الكود وهو يعتمد على كتابة رقم الموديول فقط طبعا ذلك يعتمد على أن الموديولات لها الأسماء الافتراضية module1 و module2 و module3 وهكذا Sub Del_Module() On Error Resume Next mod_num = Application.InputBox("أدخل رقم الموديول المراد حذفه", "حذف موديول") With ActiveWorkbook.VBProject.VBComponents .Remove .Item("Module" & mod_num) End With End Sub حذف موديول.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 19, 2013 الكاتب مشاركة قام بنشر يونيو 19, 2013 واذا أردنا تعديل بحيث يكون الحذف بدلالة اسم الموديول وليس رقمه يكون التعديل كالآتى Sub Del_Module() On Error Resume Next mod_nam = Application.InputBox("أدخل اسم الموديول المراد حذفه", "حذف موديول") With ActiveWorkbook.VBProject.VBComponents .Remove .Item(mod_nam) End With End Sub رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 19, 2013 الكاتب مشاركة قام بنشر يونيو 19, 2013 (معدل) واذا أردنا حذف جميع الموديولات ما عدا الموديول المحتوى على كود الحذف وهو هنا ( module1 ) يكود الكود كالآتى Sub Del_All_Modules() Set VBComp = Application.VBE.ActiveVBProject.VBComponents For Each VBComponent In VBComp If VBComponent.Name <> "Module1" Then If VBComponent.Type = 1 Then VBComp.Remove VBComponent End If End If Next End Sub حذف جميع الموديولات.rar تم تعديل يونيو 19, 2013 بواسطه رجب جاويش رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 19, 2013 مشاركة قام بنشر يونيو 19, 2013 السلام عليكم معلومات مفيدة جدا احسنت واحسن الله اليك وجزاكم خيرا تقبلوا تحياتي وشكري رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر يونيو 19, 2013 مشاركة قام بنشر يونيو 19, 2013 اخى رجب معلومات هامه وعامة هامة يحتاجه كل التخصصات فى اى مشروع اذا اراد اضافتها جزاك الله خيرا اخى رجب رايت فى ملفات من منتيات اجنبية لا تستطيع الوصول للمشروع ارجو ان تكون المعلومه واضحة لا يعطى فورم الباسورد وانما لا تجد المشروع من اساسه فهل هناك اكواد لذلك With ActiveWorkbook.VBProject.VBComponents رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 19, 2013 الكاتب مشاركة قام بنشر يونيو 19, 2013 أستاذى الحبيب / عبد الله باقشير شرفت جدا بمرور أستاذى الحبيب وبكلماته العطرة أستاذى الحبيب تقبل أرق تحياتى وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 19, 2013 الكاتب مشاركة قام بنشر يونيو 19, 2013 أخى الفاضل / سعد عابد شكرا جزيلا أخى الفاضل وجزاك الله كل خير ليس عندى معلومة عن هذا الموضوع الذى يخص اخفاء المشروع كله رابط هذا التعليق شارك More sharing options...
محمد يوسف محمد1 قام بنشر يونيو 20, 2013 مشاركة قام بنشر يونيو 20, 2013 لن أجد أحسن من الدعاء للتعبير عن تقديرى لشخصكم الكريم ربنا يرضى عليك وجعلك من أهل عفوه ومغفرته رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يونيو 20, 2013 الكاتب مشاركة قام بنشر يونيو 20, 2013 أخى الفاضل / محمد يوسف شكرا جزيلا أخى الفاضل على دعائك الطيب وجزاك الله كل خير رابط هذا التعليق شارك 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.