Нашел в просторах форума код, сохраняющий резервную книгу в отдельную папку, Как переделать код, чтобы в резервной копии макросы не выполнялись?
Код |
---|
Sub Backup_Active_Workbook()
Dim x As String
strPath = "C:\1НН\2015" 'папка для сохранения резервной копии
On Error Resume Next
x = GetAttr(strPath) And 0
If Err = 0 Then ' если путь существует - сохраняем копию книги, добавляя дату-время
strDate = Worksheets("Свод").Range("X8")
FileNameXls = strPath & "\" & "1НН на" & " " & strDate & ".xls" 'или xlsm
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
Else 'если путь не существует - выводим сообщение
MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical
End If
End Sub
|