............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Kill .FullName RECUPERACION DE ARCHIVO

Ver el tema anterior Ver el tema siguiente Ir abajo

Kill .FullName RECUPERACION DE ARCHIVO

Mensaje por PIKEN el Vie Mar 21, 2014 12:25 am

Hola, me encontré este foro, y se me hiso agradable asi que les comparto mi problema, si son tan amables de ayudarme a resolverlo.
Quiero recuperar un archivo eliminado con una macro, les dejo el código:

Sub act()
Workbook_Open

End Sub



Private Sub Workbook_Open()
Dim fecha As Date
Dim wb As Workbook

fecha = "26/02/2014" 'fecha de eliminacion del libro
Set wb = ThisWorkbook

If fecha <= Date Then
MsgBox "Se ha cumplido el periodo de prueba del libro!", vbExclamation

With wb
.Saved = True 'se estable como salvado
.ChangeFileAccess xlReadOnly 'se pone el acceso al libro como de solo lectura
Kill .FullName 'se elimina el libro
.Close 'se cierra el libro
End With
End If
End Sub

El problema es que al correrlo se elimina y no me crea una copia ni nada se elimina el archivo por completo. Abra una forma de recuperarlo?
Intente algunos métodos como recuva, Excelfix, restaurar equipo a una fecha, y nada no saben de algún método o si se guarda en algún lugar con ese código?
De antemano agradesco su atención y espero que me puedan ayudar

PIKEN

Masculino Cantidad de envíos : 1
Edad : 23
Ciudad - Pais : MEXICO
Version de Excel : 2010
Fecha de inscripción : 21/03/2014

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.