Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Crie um módulo e inclua o código:
Sub Salvar()
ThisWorkbook.Save
Application.OnTime Now + TimeValue("00:00:15"), "Salvar"
End Sub
No módulo da pasta de trabalho, no evento Open, chame esta macro com o código:
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:15"), "Salvar"
End Sub
Dessa forma a cada 15 segundos a planilha será salva.
Abraços!