Eliminar archivo en uso

Necesitaría si se puede eliminar el excel que contiene la macro en uso.
Si no se introduce bien la clave y para que no generen copia Lo que pensé es que se cierre el libro y se elimine, puede ser con la instrucción: ThisWookbook. ¿Close y luego kill mas el Path en donde esta? Pero no me lo toma, ¿cómo podría hacerlo?

1 respuesta

Respuesta
1

Con esta instrucción obtienes el path
Ruta = ThisWorkbook.Path
Con esta rutina puedes borrar el archivo, es un ejemplo, tienes que adaptarla a la condición de tu clave
Private Sub Workbook_Open()If Password = "Error" ThenApplication.DisplayAlerts = FalseWith ActiveWorkbook.ChangeFileAccess xlReadOnlyKill .FullName.CloseEnd WithApplication.DisplayAlerts = TrueEnd IfEnd Sub
Saludos. Dam

La pregunta no admite más respuestas

Más respuestas relacionadas