Anna Lea tiene un libro de trabajo de solo lectura que usa como plantilla para un informe diario que crea. El nombre del archivo es bastante largo y termina en 20507xx. Cuando hace doble clic en el libro de trabajo, se abre y muestra que es de solo lectura. Realiza sus cambios y luego usa Guardar como. Dado que Excel reconoce que el archivo es de solo lectura, sugiere un nuevo nombre de archivo que consiste en el anterior con las palabras «Copia de» como prefijo. Anna quiere deshacerse de la «Copia de» para que todo lo que tenga que hacer sea cambiar la parte «xx» del nombre del archivo para crear el informe del día.

Excel agrega automáticamente la palabra «Copia de». Si está utilizando Guardar como, no hay forma de cambiar esto sin utilizar una macro para controlar el proceso de guardado. La siguiente macro, guardada como parte del objeto ThisWorkbook, muestra cómo se puede hacer esto.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _   As Boolean, Cancel As Boolean)

Dim sTemp As String     Dim sCheck As String     sCheck = "xx.xls"



If SaveAsUI Then         sTemp = ThisWorkbook.Name         If Right(sTemp, Len(sCheck)) = sCheck Then             sTemp = Left(sTemp, Len(sTemp) - Len(sCheck))

sTemp = sTemp & Format(Now, "dd") & ".xls"

sTemp = ThisWorkbook.Path & "/" & sTemp             ThisWorkbook.SaveAs Filename:=sTemp, _               FileFormat:=xlNormal             Cancel = True         End If     End If End Sub

La macro primero comprueba si el cuadro de diálogo Guardar como está a punto de aparecer. Si es así, entonces el nombre del libro se asigna a la variable sTemp. Este nombre se verifica para ver si los últimos seis caracteres son «xx.xls» (de la variable sCheck). Si es así, se supone que el libro de trabajo es aquel en el que se debe cambiar el nombre.

Primero los caracteres «xx.xls» (o lo que haya asignado a sCheck)

se eliminan del final del nombre del libro. Luego, la fecha de hoy (dos dígitos, para el día del mes) se agrega al nombre del archivo, seguida del sufijo «.xls». Finalmente, el libro de trabajo se guarda con este nombre de archivo recién construido. El indicador Cancelar se establece en Verdadero para que nunca se muestre el cuadro de diálogo Guardar como.

Tenga en cuenta que el nombre nunca se comprueba para la verborrea «Copia de». La razón de esto es simple: la redacción no se agrega al comienzo del nombre del archivo hasta que se muestra el cuadro de diálogo Guardar como real. Antes de ese punto (cuando se está ejecutando este controlador de eventos), el nombre del libro de trabajo permanece sin cambios.

_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 (3064) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.