Восстановление файла

[kuba]

После потери нескольких файлов по поиску "Автоматическое резервное копирование" или что-то наподобии нашел вот это:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As String
strPath = "c:\RECExcel" ' путь может быть свой
On Error Resume Next
x = GetAttr(strPath) And 0
If Err = 0 Then ' если путь существует - сохраняем копию книги
strDate = Format(Now, "dd/mm/yy hh-mm")
FileNameXls = strPath & "\" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xlsm"
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
Else 'если путь не существует - выводим сообщение
MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical
End If
End Sub

Расместить в "Эта книга".
При закрытии файла даже без сохранения создаёт рез.копию в указаном месте с добавлением к имени файла время сохранения.
Советую.

[АлексЖур]

Файл восстановил полностью программой R-Studio

Всем спасибо за помощь