تعديم على كود حفظ باسم

[علي حيدر]

 التعديل على الكود بحيث يبقي الملف الاساسي مفتوح وغلق تلقائي للنسخه المستحدثة الملف مرفق مع الشرح وهذه نسخه عن الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr As String
 Dim Destwb As Workbook
Dim path As String

path = "D:\hhh\"
If Target.Column = 3 Then
lr = Sheets(1).Range("c" & Rows.Count).End(xlUp).Rows.Value

End If
With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

  Set Destwb = ActiveWorkbook
 
With Destwb

  .SaveAs Filename:=path & lr, FileFormat:=52
        .Close SaveChanges:=False
    End With
    MsgBox "You can find the new file in " & lr
     With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
   
   
   
End Sub

نرجو من الاساتذه المشاركه مع خالص تحياتي

SAVEASFILE.rar