Olá,
Tenho duas sugestões para você.
1. A primeira envolve o uso da macro abaixo que, espero, faça o que você precisa:
Public Sub CriarBackup()
On Error GoTo Erro
'Altere a constante abaixo para que ela aponte
'para o seu arquivo de backup
Const STR_NOME_DO_BACKUP As String = "C:\Backups\MeuArquivoBak.xls"
If (Dir(STR_NOME_DO_BACKUP) <> "") Then
Kill STR_NOME_DO_BACKUP
End If
ThisWorkbook.SaveCopyAs Filename:=STR_NOME_DO_BACKUP
Fim:
Exit Sub
Erro:
MsgBox "Erro ao criar backup:" & vbCrLf & _
Err.Description, vbOKOnly + vbCritical, "Atenção"
Err.Clear
Resume Fim
End Sub
Não se esqueça de alterar a constante STR_NOME_DO_BACKUP para o nome real do seu arquivo de Backup.
2. A segunda sugestão - que eu, particularmente, acho melhor - seria executar o seguinte procedimento:
2.1 Selecione o menú Arquivo->Salvar Como (ou Salvar se estiver salvando sua pasta de trabalho pela primeira vez).
2.1 Na caixa de diálogo Salvar Como, clique no botão Ferramentas
2.2 No menú que aparece, clique em Opções Gerais ...
2.3 Marque a opção Sempre criar backup
2.4 Clique em OK.
2.5 Agora, sempre que salvar seu arquivo, uma cópia de backup será criada na mesma pasta onde está o arquivo original.
2.6 Finalmente, valem as seguintes observações:
2.6.1 Caso seu arquivo se chame Aguiar_13.xls, será criado um backup com o nome Backup de Aguiar_13.xlk (observe a extensão)
2.6.2 Os procedimentos descritos acima valem para o Excel versão 2.003 mas, para versões diferentes, deve haver um procedimento similar.
Atenciosamente,
