Microsoft Office Forums - View Single Post

Visor · 10-02-2019, 04:38 AM

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