نقل موديل من مشروع vba الى ملف تم انشاءه بكود برمجى

[saad abed]

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

لدى ملف اكسيل يحتوى على كود لانشاء ملف باسم خاص ويحفظ فى مسار معين

لحد هنا لا توجد مشكله

اريد ان انقل مديول رقم1 وكود يعمل فى حدث فتح الملف فى الملف الجديد

هل هذا ممكن

كود انشاء الملف

Sub new_workbook()
    Dim ws          As Worksheet
    Dim Path As String
    Path = CreateObject("WScript.Shell").SpecialFolders("startup") & "\"
   With Workbooks.Add
       .SaveAs Filename:=(Path & "rd" & ".xlsm"), FileFormat:=52
       .Close
   End With
End Sub

 

سعد.xlsm

تم تعديل منذ 18 ساعات بواسطه saad abed