Saltar al contenido

Como Crear BACKUP Mostrar MENSAJE de FINALIZACION con CIERRE AUTOMATICO en Excel VBA #593

Backup con macro excel, mensaje cierre automatico

MENSAJE AUTOMATICO DE FINALIZACIÓN DEL BACKUP EN EXCEL

En esta macro se mostrará como mostrar y ocultar automáticamente un mensaje que da aviso de la finalización del backup realizado en Excel, el mensaje sale al finalizar la copia de seguridad, se muestra por dos segundos y se oculta automáticamente.

Tu puedes operar Excel como los mejores, click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.

  
 

Puedes ver la macro en acción y una explicación más detallada de su codificación y funcionamiento, descarga el archivo y mira el video para una más fácil comprensión de la macro; suscribe a nuestro canal de You Tube, mira el playlist con  vídeos relacionados donde podrás ver la macros relacionadas en acción con una explicación en forma visual que ayudará a entender el ejemplo en forma más fácil.

Resguardo de Archivos con Macros de Excel con Mensaje Automático de Finalización del Backup

El ejemplo es muy simple solo se trata de mostrar un formulario que se cierra en forma automática luego de terminar el backup o copia de seguridad del archivo actual.

El formulario una vez terminada la copia de seguridad del propio archivo, se muestra avisando que el Backup se realizó con éxito.

Código para realizar copia de seguridad automática con las tareas de Windows

Para poder programar esta macro que realiza un copia de seguridad y después muestra un mensaje por dos segundos y desaparece le formulario, se necesita en primero lugar establecer cual es el tiempo que se quiere mostrar el formulario, lo cual se hace con este código, también damos formato al label del userform1 utilizado

Tpo = «00:00:02» ‘ Tiempo de muestra del mensaje
Label1.Font = arial ‘Tipo de fuente
Label1.Font.Size = 20 ‘Tamaño de la fuente

En la codificación del formulario hay varios «Case» de 0 a 4; esto es así por si hay que mostrar un mensaje desde distintas macros, para usar un solo formulario,  lo que muestra la codificación que si se llama de la macro 0 muestra un mensaje distinto a si se llama de la macro 1, 2 o 3.

Una vez determinado de donde se está llamando al formulario, se escribe en el label el siguiente mensaje «El Backup se Creo con Éxito»; a su vez se establece que la macro debe esperar desde ahora el tiempo guardado en la variable tiempo «Tpo», pasado ese tiempo cierra el formulario en forma automática. 

Case Is = 4
Label1.Caption = «El Backup se Creo con Éxito»
End Select
Application.Wait Now + TimeValue(Tpo)
Unload UserForm1
End Sub

 

Código VBA para utilizar tareas programadas de Windows y archivo bat para generar un backup en Excel

Código que se coloca en un formulario

Private Sub UserForm_Activate()
Tpo = «00:00:02»
Label1.Font = arial
Label1.Font.Size = 20
Select Case llamaform
Case Is = 0
‘Label1.Caption = «CCL Actualizado con Éxito»
Case Is = 1
‘Label1.Caption = «Cotizaciones Actualizadas con Éxito»
Case Is = 2
‘Label1.Caption = «Resumen Actualizado con Éxito»
Case Is = 3
‘Label1.Caption = «Ratios de Cedears Actualizados con Éxito»
Case Is = 4
Label1.Caption = «El Backup se Creo con Éxito»
End Select
Application.Wait Now + TimeValue(Tpo)
Unload UserForm1
End Sub


Código que se coloca en un módulo de un archivo de Excel


Sub Backup()
On Error Resume Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Direc = CreateObject(«wscript.shell»).specialfolders(«desktop») & «\BACKUP\»

If Dir(Direc, vbDirectory) = «» Then MkDir Direc ‘Verifica si existe la carpeta o directorio, si no existe lo crea

nom = ActiveWorkbook.Name
lar = InStr(nom, «.»)
nom = Left(nom, lar – 1)
nomfecha = Format(Date, «ddmmyyyy»)
nomhora = Format(Time, «hhmmss»)
nomarchi1 = Direc & «BACKUP» & » » & nom & » » & nomfecha & » » & nomhora & «.xlsm»
‘ActiveWorkbook.SaveAs Filename:=nomarchi1, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ThisWorkbook.SaveCopyAs nomarchi1 ‘Crea backup y se sigue trabajando en libro original

llamaform = 4
UserForm1.Show

Application.ScreenUpdating = False
Application.DisplayAlerts = False
End Sub

 


Descarga libro de Excel que muestra mensaje automático al finalizar backup

Descarga el fichero usado como ejemplo, sugiero ver el vídeo explicativo, el mismo es totalmente gratuito y libre su uso, solicito aportar para sostener esta web, si está dentro de tus posibilidades, desde ya muchas gracias.

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Donate:
Cuenta Paypal: https://paypal.me/programarexcel

Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd

Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407

Cuenta Skrill: marcrodos@yahoo.es

Cuenta Neteller: marcrodos@yahoo.es