Ogni volta che Mathew chiude una cartella di lavoro, vorrebbe che Excel crei un backup datato di quella cartella di lavoro, il che significa che viene salvato utilizzando un nome file che include la data. Pertanto, se salva “AnyWorkbookName”, non salverà solo con quel nome, ma anche con il nome “AnyWorkbookName [data e ora odierna]”. Mathew è sicuro che questo debba essere fatto con VBA, ma non è sicuro di come procedere.

È possibile sviluppare un numero qualsiasi di macro per eseguire questa operazione. Quasi tutte sono variazioni su un tema (per così dire), quindi per i nostri scopi dovrebbe bastare un solo esempio.

La seguente macro, appena prima di chiudere la cartella di lavoro, salverà la cartella di lavoro con una data e un’ora aggiunte alla fine del nome del file.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim sFileName As String     Dim sDateTime As String

With ThisWorkbook         sDateTime = " (" & Format(Now, "yyyy-mm-dd hhmm") & ").xlsm"

sFileName = Application.WorksheetFunction.Substitute _           (.FullName, ".xlsm", sDateTime)

.SaveCopyAs sFilename     End With End Sub

La macro mette insieme la stringa di data e ora nella variabile sDateTime. Questo viene quindi inserito nel nome del file della cartella di lavoro utilizzando la funzione del foglio di lavoro SOSTITUISCI. (La stringa data / ora viene effettivamente inserita appena prima dell’estensione del nome file.) La macro presume che la cartella di lavoro venga salvata come file XLSM perché deve contenere macro, ad esempio la macro per eseguire questo salvataggio.

La macro dovrebbe essere inserita nel modulo ThisWorkbook per la cartella di lavoro.

Ciò garantisce che verrà eseguito appena prima della chiusura della cartella di lavoro.

Esistono anche componenti aggiuntivi di terze parti che possono eseguire questa attività. I seguenti sono alcuni che potresti voler controllare.

http://www.jkp-ads.com/Download.asp#AutoSafe http://www.asap-utilities.com

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (13195) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.