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

1 respuesta

Calificación
  • hace 4 semanas

    .......................,,..,.

¿Aún tienes preguntas? Pregunta ahora para obtener respuestas.