Establecer fácilmente una fecha limite de uso de nuestras plantillas o aplicaciones en Excel con MACROS, aprende como hacerlo guiado paso a paso.

Descarga el archivo para practicar: https://goo.gl/3F6a6u

Private Sub Workbook_Open()
Dim FechaVen As Date
FechaVen = «15/12/2017» ‘Aquí debes poner la fecha limite de uso

If Date > FechaVen Then
MsgBox «Esta APP ha vencido.» & Chr(13) _
& «» & Chr(13) _
& «Comuquese con el departemento de soporte o con el desarrollador, para que sea activado nuevamente la APP.», vbInformation, «ExcelAprende.com»

ActiveWorkbook.Close savechanges:=False
End If
MsgBox «Faltan estos días» & FechaVen – Date & » para el vencimiento de la licencia del APP.», vbOKOnly, «ExcelAprende.com»
End Sub

 

 [youtube https://www.youtube.com/watch?v=HTE-D_zgaVw]




Pin It on Pinterest