Coloque esse codigo no evento que achar conveniente.

Eu uso no Before Clore (Antes de Fechar)

Se quiser o Backup no momento da abertura basta trocar para o evento open.(Nao recomendavel)

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Backup As String
Dim WB As Workbook

On Error Resume Next

    Set WB = Workbooks("Nome do Arquivo.xlsm")
    Backup = "C:Caminho onde sera Salvo o arquivo"

Application.DisplayAlerts = False

    WB.Save

    ChDir "C:Nome da Pasta onde sera o Backup"

    WB.SaveAs Filename:=Backup, FileFormat:=xlOpenXMLWorkbookMacroEnabled

Application.DisplayAlerts = True

End Sub

entendi, e como eu faço para fazer a copia dos arquivos juntos?

Exemplo

( tenho uma pasta Chamada Meu conteudo )

nela encontra-se 4 arquivos,

Ao abrir uma delas, como eu faço pra copiar a pasta toda para outro local?

Ja me facilitaria muito.

ElsonDion,

Bom dia!

Não sei se é esse o seu caso... mas, ontem respondi uma mensagem de outro usuário com dúvida smelhante. Veja se o arquivo que enviei pra ele também pode te ajudar.