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

 

 




Pin It on Pinterest

Compartir es agradecer ;)

Si te gusto, comparte con tus amigos.

A %d blogueros les gusta esto: