[حل شده] راهنمایی در بک اپ

[kazem1359]

سلام
در کد زیر علاوه بر بک اپ گیری تغییرات داده شده در فایل اصلی هم save میشه بنده می خواهم فایل اصلی save نشه . ممنون

Sub SaveWorkbookBackup()


Dim AWB As Workbook, BackupFileName As String, BackupFileFormat As String, i As Integer, Ok As Boolean


On Error GoTo NotAbleToSave
    
Set AWB = ActiveWorkbook


BackupFileName = AWB.FullName


If AWB.Path = "" Then


    Application.Dialogs(xlDialogSaveAs).Show
    
Else
    BackupFileFormat = Right(BackupFileName, Len(BackupFileName) - InStrRev(BackupFileName, ".", -1, vbTextCompare))
    BackupFileName = Left(AWB.FullName, Len(BackupFileName) - Len(BackupFileFormat) - 1)
    BackupFileName = BackupFileName & "-Backup-" & Format(Now, "yyyy-mm-dd-h-m") & "." & BackupFileFormat
    Ok = False
    
    With AWB
        .Save
        .SaveCopyAs BackupFileName
        Ok = True
    End With
    
End If


NotAbleToSave:
    Set AWB = Nothing
    If Not Ok Then
        MsgBox "Backup Copy Not Saved!", vbExclamation, ThisWorkbook.Name
    End If
End Sub 

[Amir Ghasemiyan]

سلام دوست عزيز
اين خط كد رو حذف كنيد

.Save

[kazem1359]

ممنون سپاس فراوان