Este fórum está sendo desativado

[GENECI]

Boa tarde!

Deparei-me com a seguinte necessidade.
É possível criar no VBA um procedimento para criar um arquivo "cópia" reserva simultaneamente do meu arquivo fonte?

Exemplo: Estou trabalhando com um arquivo com o nome DADOS, quando salvar a planilha dados pela primeira vez criar um arquivo com o nome DADOS-BACKUP.
E posteriormente se abrir e alterar o arquivo DADOS atualizar automaticamente.

Grato - GENECI

[alexandrevba]

Bom dia!!

Baseado na sua descrição

atualizar automaticamente.

, eu presumo que de tempo em tempo você deseja que salve os dados.

Salva acada 5 minutos:
Esse código deve ser posto dentro do módulo de Comum.

Código: Selecionar todos

Public dTime As Date
'Codigo feito por Dave
'http://www.ozgrid.com/forum/member.php?u=1
Sub SalvarAutomatico()
    dTime = Time + TimeValue("00:05:00")
    With Application
        .OnTime dTime, "SalvarAutomatico"
        .EnableEvents = False
        .DisplayAlerts = False
        ThisWorkbook.SaveAs "FilePath&NameHere(no .xls)"
        .EnableEvents = True
    End With
End Sub

Os dois códigos devem ser posto dentro do módulo de EstaPasta_de_trabalho.

Código: Selecionar todos

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime dTime, "SalvarAutomatico", , False
End Sub

Código: Selecionar todos

Private Sub Workbook_Open()
    dTime = Time + TimeValue("00:05:00")
    Application.OnTime dTime, "SalvarAutomatico"
End Sub

Antes de fechar seu arquivo:
Esse código deve ser posto dentro do módulo de EstaPasta_de_trabalho.

Código: Selecionar todos

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim tPath As String
    tPath = "C:\Documents\AleVBA\BackUp\"
    ThisWorkbook.SaveCopyAs tPath & Format(Date, "dd-mm-yyyy") & " - " & ActiveWorkbook.Name
End Sub

Att

[GENECI]

Boa tarde! alexandrevba

Grato por responder a solicitação.

Algo fiz de errado que não obtive o resultado esperado.
Por favor! Pode colocar os código elaborados em vba no arquivo anexo.
Todas as tentativas não obtive êxito.

Obrigado - GENECI.

[alexandrevba]

Boa tarde!!

Qual a dificuldade, eu deixei comentado onde deve postar o código.

Veja imagem.



Att