Welcome Back

Create a backup copy of the workbook (auto save) every specified period of time Backup Automatically Every 15 Seconds

I present to you a code that creates a backup copy of the workbook every 15 seconds, in anticipation of problems such as a sudden power outage or as a kind of caution so that you have more than one copy of your file, especially if the file is very important

The code creates the backup in the same path as the current workbook in a folder called Test, the folder is created automatically if it does not exist, and you can change the auto save path, and you can change the name of the folder to save the backups in, and you can change the time period required for the auto save process (The code is explained in detail to make it easier for you to modify it)


Finally, here is the code, which is made up of a code placed in a normal module like this

Sub Create_Backup()

    Dim strDate As String, strTime As String, directoryName As String


    strDate = Format(Date, "DD-MM-YYYY")


    strTime = Format(Time, "hh.mm.ss")


    Application.DisplayAlerts = False


        With ActiveWorkbook

            On Error Resume Next

                directoryName = ThisWorkbook.Path & "\Test\"


                MkDir directoryName

            On Error GoTo 0


            .SaveCopyAs Filename:=directoryName & strDate & "_" & strTime & "_" & .Name

        End With

    Application.DisplayAlerts = True


    Application.OnTime Now + TimeValue("00:00:15"), "Create_Backup"

End Sub


The second part of the code is placed in the classifier event like this

Private Sub Workbook_Open()
    ' [CreateBackup] 
    Application.OnTime Now + TimeValue("00:00:15"), "Create_Backup"
End Sub


Prepared by / Yasser Khalil Abu Al-Bara

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق