View Single Post
 
Old 10-02-2019, 04:38 AM
Visor Visor is offline Windows 10 Office 2013
Novice
 
Join Date: Aug 2019
Posts: 23
Visor is on a distinguished road
Default Word file expiration date

Dear friends of the forum, on this occasion I am interested in having a file automatically deleted after a certain date.
I have the following code to be analyzed, I brought it from an excel file in which it works correctly.
Of course, the person who realizes it will be able to avoid this effect, but not for the one who does not know, ..
I would like to ask you to help me review it and suggest the corrections.
This is the code:

HTML Code:
Sub Document_Open()

Dim FechaCaducidad As Date
FechaCaducidad = #4/5/2020#
    If FechaCaducidad > Date Then
 
  'Mensaje de bienvenida
MsgBox ("Bienvenid@" + Chr(13) + Chr(10) & "LE SALUDA SU PROFESOR FELIX FALCONI" + Chr(13) + Chr(10))
    
    Else
        MsgBox "Este archivo dejo de funcionar" & vbCrLf & "Finalizó el período de utilizacion", vbCritical
            Application.DisplayAlerts = False
            ActiveDocument.ChangeFileAccess xlReadOnly
            Kill ActiveDocument.FullName
            ActiveDocument.Close
    End If
End sub
Thanks in advance
Reply With Quote