Cada vez que Mathew cierra un libro, le gustaría que Excel creara una copia de seguridad con fecha de ese libro, lo que significa que se guarda con un nombre de archivo que incluye la fecha. Por lo tanto, si guarda «AnyWorkbookName», se guardará no solo con ese nombre, sino también con el nombre «AnyWorkbookName [Fecha y hora de hoy]». Mathew está seguro de que esto debe hacerse con VBA, pero no está seguro de cómo hacerlo.

Hay muchas macros que se pueden desarrollar para realizar esta tarea. La mayoría de ellos son variaciones de un tema (por así decirlo), por lo que para nuestros propósitos un solo ejemplo debería ser suficiente.

La siguiente macro, justo antes de cerrar el libro de trabajo, guardará el libro de trabajo con una fecha y hora al final del nombre del archivo.

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 junta la cadena de fecha y hora en la variable sDateTime. A continuación, se inserta en el nombre de archivo del libro de trabajo mediante la función de hoja de trabajo SUSTITUIR. (La cadena de fecha / hora se inserta efectivamente justo antes de la extensión del nombre de archivo). La macro asume que el libro de trabajo se está guardando como un archivo XLSM porque debe contener macros, como la macro para realizar este guardado.

La macro debe colocarse en el módulo ThisWorkbook del libro.

Esto asegura que se ejecutará justo antes de que se cierre el libro.

También existen complementos de terceros que pueden realizar esta tarea. Los siguientes son algunos que quizás desee consultar.

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

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (13195) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.