Добрый день!
Нашёл на форуме макрос, который при закрытие файла создаёт резервную копию файла в xls. формате в определённую директорию.
Файл в котором записан код со скрытыми листами.
задача моя следующая:
-что нужно дописать в макросе что бы файл при закрытие создавал резервную копию, НО отображал бы в сохранёном файле все скрытые листы?
-Что нужно дописать чтобы при каждом закрытие файла файл сохранялся автоматически, и не выдавал окошко"Сохранить?"??
Ниже код, так же я записал его в приложенном файле:
Нашёл на форуме макрос, который при закрытие файла создаёт резервную копию файла в xls. формате в определённую директорию.
Файл в котором записан код со скрытыми листами.
задача моя следующая:
-что нужно дописать в макросе что бы файл при закрытие создавал резервную копию, НО отображал бы в сохранёном файле все скрытые листы?
-Что нужно дописать чтобы при каждом закрытие файла файл сохранялся автоматически, и не выдавал окошко"Сохранить?"??
Ниже код, так же я записал его в приложенном файле:
Код |
---|
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim strPath$: strPath = "C:\Users\wm4\Desktop\примеры ЭКСЕЛЬ\" With ThisWorkbook If Dir(strPath) <> Empty Then .SaveCopyAs (strPath & " " & Range("D3" ;) & ".xls" ;) Else MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical End If End With End Sub |