Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Worksheets("Лист1").Range("L3").Value = Now 'Now()
Dim FolderName As String
FolderName = "C:\Users\Сергей\Desktop\Заказ"
SaveCopyAs FolderName & "\" & "КопияЗаказа " & Left(Now, 10) & ".xlsm"
End Sub
вот такой код есть в оригинале книги.
проблема в том, что когда открываешь саму копию книги, которая создалась кодом, то при закрытии книги копия пытается создать свою копию - появляется ошибка. как можно исправить это? чтобы эта часть кода (есть еще другая чать, не относящаяся к теме), которая создает копию не шла в саму копию?
| 
