Este fórum está sendo desativado

[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!!!!

[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.