Excel proporciona un entorno de desarrollo sólido que muchas personas aprovechan al máximo. De hecho, muchas personas han escrito programas de aplicación completos utilizando VBA con Excel como marco.

Si desarrolla programas en Excel, es posible que se pregunte si hay una manera de escribir su programa para que deje de funcionar después de una fecha específica. Afortunadamente, esto es bastante sencillo. Una solución es utilizar algo como lo siguiente como macro Auto_Open:

Sub Auto_Open()

Dim exdate As Date     exdate = "12/31/2020"

If Date > exdate Then         MsgBox ("You have reached end of your trial period")

ActiveWorkbook.Close     End If     MsgBox ("You have " & exdate - Date & "Days left")

End Sub

Si la fecha en el sistema que ejecuta el programa es mayor que la fecha especificada en la variable exdate, el usuario verá un cuadro de mensaje que indica que su período de prueba ha expirado. Cuando el usuario hace clic en el botón Aceptar, el libro se cierra. Si el período de prueba no ha terminado, el cuadro de mensaje indica cuántos días quedan en el período.

Por supuesto, si coloca una macro como esta en su aplicación, puede impedirle abrir el libro de trabajo para realizar cambios en el programa. La forma obvia de evitar esto, por supuesto, es mantener presionada la tecla Mayús mientras abre el libro de trabajo. Hacerlo detiene la ejecución de la macro Auto_Open. Sin embargo, si sus usuarios saben esto, pueden omitir la verificación de vencimiento con la misma facilidad que usted. La solución es colocar comprobaciones similares dentro de otras macros que no se pueden omitir y que son esenciales para su programa.

_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 (10230) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Expiration_Date_for_Excel_Programs [Fecha de vencimiento para programas de Excel].