تعديل في كود لتصدير ورقة عمل

[ضياء 2]

السلام عليكم الاساتذة الافاضل بالمنتدى فضلا من كرمكم  " المطلوب تعديل في كود لتصدير ورقة عمل واحدة بدون ازرار  CommandButton  كمثل زر طباعة ، زر وتصدير ورقة عمل

wor.xlsm

[محمد يوسف ابو يوسف]

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

تفضل  wor.xlsm

[ضياء 2]

الكود كما هو استاذنا الكريم بصدر ورقة العمل بازرار CommandButton انا عاوزها الورقة المصدرة بدون ازرار CommandButton

[محمد يوسف ابو يوسف]

اخي انت بالاول طلبت ان يكن مثل زر الطباعة------- الان طلبك غير مفهوم

[ضياء 2]

المطلوب استاذنا الورقة المصدرة بدون ازرار CommandButton

[محمد هشام.]

السلام عليكم ورحمة الله تعالى وبركاته  ..تفضل اخي الكريم

Private Sub CommandButton1_Click()
Dim filePath As String
Dim Ws As Worksheet
Application.ScreenUpdating = False
filePath = Application.ActiveWorkbook.Path
    Set Ws = Sheets("بيانات")
        With Ws
            .Copy
Application.DisplayAlerts = False
Application.CutCopyMode = False
            
Dim shape As Excel.shape
For Each shape In ActiveSheet.Shapes
shape.Delete
Next
 Application.ActiveWorkbook.SaveAs Filename:=filePath & "\" & .Name & "" & "" & ".xlsx", FileFormat:=51
        Application.ActiveWorkbook.Close False
                End With
           MsgBox "تم نسخ الملف بنجاح"
    Application.ScreenUpdating = True
End Sub

wor_MH.xlsm

[ضياء 2]

ما شاء الله استاذ Mohamed Hicham مبدع شكرا جزيلا والشكر موصول لاستاذ محمد يوسف ابو يوسف اتعبتك معي هذا تقصير مني في توصيل المطلوب