نسخة أحتياطية وفتح ملف

[osama elmorsy]

عندي 3 أكواد احدهم لعمل نسخة أحتياطية والأخر لفتح ملف والثالث لترحيل البيانات لملف اكسل اخر والأكواد الثلاثة تعمل بشكل جيد ولكن عند تحويل ملف الاكسل لملف تنفيذي لا تعمل تلك الأكواد فهل هناك حل لتلك المشكلة  وهذة هي الأكواد 

اقتباس

كود الحفظ التلقائي

filePath = Application.ActiveWorkbook.Path
Set ws = Sheets("daily")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ws
.Copy
Application.ActiveWorkbook.SaveAs Filename:=filePath & "\save\" & Format(Now(), "DD-MMM-YYYY") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.ActiveWorkbook.Close False
End With

كود الترحيل لملف أخر
Dim wb As Workbook
co = ThisWorkbook.Path & "\contrast\" & "Contrast-Book.xlsm"
On Error Resume Next
Set wb = Workbooks.Open(co)
If TAA.Value <> "" And TBB.Value <> "" Then
Sheets(1).Activate
lrow = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & lrow + 1).Value = TAA.Value
Range("B" & lrow + 1).Offset(0, 1).Value = TBB.Value
wb.Save
wb.Close
TAA.Value = ""
TBB.Value = ""
Else
MsgBox ("يرجى التأكد من ادخال كافة البيانات")
End If

كود فتح ملف اخر


Application.Calculation = xlCalculationManual
Dim so As String
so = ThisWorkbook.Path
ActiveWorkbook.FollowHyperlink so & "\contrast\" & "Contrast-Book.xlsm"

فهل من الممكن حضراتك التعديل علي تلك الأكواد حتي يمكنني الحفظ بعد تحويل الملف لملف تنفيذي وجزاكم الله كل خير