[XLS] Cambiare la cartella di autosalvataggio con una macro

Cambiare la cartella di autosalvataggio in excel impostando come cartella di salvataggio il path del file aperto in quel momento

Sub cambiaCartellaSalvataggio()

Dim cartCorrente As String 'nome della directory

  cartCorrente = Application.ActiveWorkbook.Path

  If cartCorrente <> "" Then

    Application.AutoRecover.Path = cartCorrente 

  End If

End Sub

Attenzione che la modifica del path del AutoRecover è un'impostazione di excel e non del file aperto in quel momento, quindi tutti gli altri salveranno su tale cartella