Este fórum está sendo desativado

[CSoares]

Boa tarde

Estou a tentar usar um código que consehui arranjar, para fazer o backup do ficheiro excel, sempre que fechar esse ficheiro.

Código: Selecionar todos

Dim saveDate As Date
 Dim saveTime As Variant
 Dim formatTime As String
 Dim formatDate As String
 Dim backupFolder As String

    saveDate = Date
    saveTime = Time

    formatTime = Format(saveTime, "hh.MM.ss")
    formatDate = Format(saveDate, "DD - MM - YYYY")

    Application.DisplayAlerts = False
        backupFolder = ThisWorkbook.Path & "\"
        ActiveWorkbook.SaveCopyAs Filename:=backupFolder & Replace(ActiveWorkbook.Name, ".xlsm", "") & " " & formatDate & " " & formatTime & ".xlsm"
    Application.DisplayAlerts = True

    MsgBox "Backup Successfully In The Path " & backupFolder

Contudo, já reparei que não funciona, porque estou a correr o ficheiro a partir de uma Cloud.
Será possível contornar este problema e fazer esta macro funcionar?

Obrigado pela ajuda