ابحث عن كود vba لحفظ ملف الاكسل في نفس المسار

[أحمد بوغفالة]

السلام عليكم 

عندي ملف اكسل اريد عند الضغط على زر  حفظ باسم الموجود على الشيت sheet1 انه يحفظ الشيت 1 و 2 في نفس المجلد الموجود فيه هذا الملف 

مع العلم اني لا استطيع وضع مسار محدد وذلك لان الملف سوف يستعمله عدة اشخاص وعلى حواسيب مختلفة

الملف في المرفقات

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

1111.xlsm

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

جرب هذا  الكود  لعله المطلوب 

Sub SAVESHEETS()
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
End With
For Each sh In ThisWorkbook.Worksheets
    sh.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"
    ActiveWorkbook.Close False
Next
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
End With
End Sub

 

SAVESHEET.xlsm

[أحمد بوغفالة]

شكرا جزيلا الأستاذ @عبدالفتاح في بي اكسيل