طلب تعديل الكود الدى يقوم بعمل نسخة احتياطية

Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean



Private Sub CommandButton1_Click()



    Dim wx As Workbook, ws As Worksheet, wss As Worksheet, wss2 As Worksheet, Nam, lr As Long

    Set wx = ThisWorkbook

    Set ws = wx.Sheets("invoice")

    Set wss = wx.Sheets("sheet1")

    Set wss2 = wx.Sheets("sheet2")

    

    Application.ScreenUpdating = False

    Application.EnableEvents = False

    Application.DisplayAlerts = False

'-------------------------------------------------

 MD = MsgBox(" هل تريد الترحيل الى Sheet1  ؟" _

      , vbYesNo + vbQuestion + vbDefaultImage30 + vbApplicationModal, "أكاديمية الصقر للتدريب")

  If MD = vbNo Then

    Exit Sub

       End If

'-------------------------------------------------

    lr = wss.Range("a" & Rows.Count).End(xlUp).row + 1

        With ws

        

            Nam = .Range("e5")

            Da = Format(Now(), "dd-mm-yyyy hh.mm.ss")

            MakeSureDirectoryPathExists ThisWorkbook.Path & "\backup\"

            ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\backup\" & Nam & ".xlsm"

            '=========================================

            If ws.[f5].Text = "اجل" Then

                wss.Range("a" & lr).Value = Nam

                wss.Range("a" & lr).Font.Color = 255

                wss.Range("B" & lr).Value = Da

                wss.Range("C" & lr).Value = "اجل"

                

          Else: wss.Range("a" & lr).Value = Nam

                wss.Range("B" & lr).Value = Da

                wss.Range("C" & lr).Value = "نقدي"

          End If

            If ws.[f5].Text = "اجل" Then

                wss2.Range("a" & lr).Value = Nam

                wss2.Range("a" & lr).Font.Color = 255

                wss2.Range("B" & lr).Value = Da

                wss2.Range("C" & lr).Value = "اجل"

          Else: wss.Range("a" & lr).Value = Nam

                wss2.Range("B" & lr).Value = Da

                wss2.Range("C" & lr).Value = "نقدي"

            End If

            '========================================

            '                 ActiveWorkbook.Close False

        End With

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

    Application.EnableEvents = True

        MsgBox "تم حفظ نسخة باسم " & Nam & " ", vbInformation

End Sub