La plataforma de Yahoo Respuestas cerrará definitivamente el próximo 4 de mayo de 2021 y solo estará disponible en modo de lectura. Ningún otro producto de Yahoo ni tu cuenta personal se verán afectados por este cambio. Si necesitas más información sobre el cierre de Yahoo Respuestas y cómo descargar tus datos puedes acceder a esta página de ayuda.
¿Me pueden ayudar para saber porque no compila mi macro? Excel me indica el error en esta línea: ChangeFileAccess xlReadOnly?
Private Sub Workbook_Open()
Dim exdate As Date
exdate = "08/03/2019"
If Date > exdate Then
MsgBox ("Ha ocurrido un error inesperado en el programa, Excel se cerrará automáticamente")
Call AutoDestruccion
End If
MsgBox ("Activar Macro para correcto funcionamiento")
End Sub
Sub AutoDestruccion()
On Error Resume Next
Application.DisplayAlerts = False
ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close SaveChanges:=False
On Error GoTo 0
End Sub