Sitede yedekleme örnekleri var 
Veritabanı dosyamızı şifreli rar dosyası halinde yedekleyebilir miyiz

strDestFileName = "c:\temp\TestZipFile.zip"   

strSourceFileName = "c:\temp\test.pdf"   

str7ZipPath = "C:\Program Files\7-Zip\7z.exe"   

strPassword = "MyPassword"   



strCommand = str7ZipPath & " -p" & strPassword & " a -tzip """ & strDestFileName & """ """ & strSourceFileName & """"

Shell strCommand

Bu kod her dosya için işe yarar mı

https://www.mrexcel.com/board/threads/pa...ba.642171/

önceden sitede paylaşılmış

Private Sub Form_Timer()

    Me.zaman = Time

    Me.tarih = Date

    

    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("Yedekler")

    

    rs.MoveFirst

    DoEvents

    Do Until rs.EOF

        If rs.Fields("YedekSaati") = Me.zaman Then

            x = Shell("C:\Program Files\WinRAR\winrar.exe" _

            & " a -inul -isnd -ilogc:\YedHata.log -y -x*.mp3 -x*.avi -x*.mpg -s -v720m -vn -ibck -dh -r -ag-YYYYMM " _

            & rs.Fields("SaklanacakYer") _

            & "\" & rs.Fields("YedekAdi") _

            & Format(Date, "ddd") & " " _

            & rs.Fields("YedekYeri") _

            & "\*.*")

        End If

    rs.MoveNext

    Loop

    rs.Close

End Sub

5. mesajda eklediğim kodu paylaşılan klasördeki sqlitevt.db dosyasını şifreli olarak yedeklemek için kullanacağım
ama yedekleme saati ve konum vs bilgilerini modülde const altında tutacağım
nerelerini nasıl değiştirmem lazım