|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.05.2011, 14:17 | #21 |
Пользователь
Регистрация: 26.10.2007
Сообщений: 12
|
После потери нескольких файлов по поиску "Автоматическое резервное копирование" или что-то наподобии нашел вот это:
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 Расместить в "Эта книга". При закрытии файла даже без сохранения создаёт рез.копию в указаном месте с добавлением к имени файла время сохранения. Советую. |
19.05.2011, 15:08 | #22 |
Пользователь
Регистрация: 18.05.2011
Сообщений: 11
|
Файл восстановил полностью программой R-Studio
Всем спасибо за помощь |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Восстановление файла | Palomnik1096 | Microsoft Office Word | 2 | 23.06.2011 08:20 |
Восстановление версии файла | Юлияночка | Microsoft Office Access | 2 | 20.05.2011 05:39 |
Восстановление исходного кода из .exe файла. | Mutagena | Помощь студентам | 3 | 06.12.2009 15:43 |
Восстановление предыдущей версии файла после сохранения | specman | Microsoft Office Excel | 1 | 02.11.2009 18:42 |
Восстановление файла | Guest3 | Свободное общение | 15 | 09.08.2008 16:13 |