Página 1 de 1

Backup periodico de arquivo

Enviado: 08 Mai 2019 às 09:48
por LeoDere
ola, tudo bem? pessoal, eu tenho uma loja e mantenho o controle de estoque dela em uma planilha EXCEL. é o seguinte, muiats vezes apertamos o direcional e sem querer alteramos algum valor importante na tabela, e nao percebemos. eu gostaria de saber se é possivel salvar um arquivo excel de maneira periodica, por exemplo:
salvar um arquivo do dia 08/05/2019, 09/05/2019, 10/05/2019, 11/05/2019....
ou seja programar para q todo dia, em um horario estipulado(ou assim que ligar o computador) ele salvar uma copia diferente(diaria) e eviar para a nuvem(one drive)

gostaria de aproveitar e perguntar se existem algumas formas de protejer a planilha para q alteraçoes indesejadas nao sejam feitas

obs: sou iniciante, entao expliquem com paciencia! hheheh

desde ja abradeço!!!!

Re: Backup periodico de arquivo

Enviado: 13 Mai 2019 às 11:51
por babdallas
Tente isso para salvar uma versão do seu arquivo ao abrí-lo:
Código: Selecionar todos
Public Sub SalvarComoBackup()
    Dim strCaminho As String
    Const strRaiz As String = "Exemplo" 'Nome Principal do arquivo
    
    strCaminho = "C:\Users\cf19\Desktop\" & strRaiz & "_" & _
                VBA.Replace(VBA.Replace(VBA.Replace(VBA.CStr(VBA.Now), ":", ""), "/", ""), " ", "")
    
    
    ThisWorkbook.SaveAs Filename:=strCaminho, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
E depois na pasta de trabalho:
Código: Selecionar todos
Private Sub Workbook_Open()
    SalvarComoBackup
End Sub

Não sei salvar isto na nuvem via VBA. Se souberem, também quero aprender.