Sub Сохранить_протокол()
'
' ФормироватьФайл2 Макрос
'

'
Range("A3").Select
Sheets("Протокол и формуляр").Select
Sheets("Протокол и формуляр").Copy
ChDir "Y:\Протоколы"
ActiveWorkbook.SaveAs Filename:="Y:\Протоколы\Протокол_" & Right(Now, 10) & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Rows("1:2").Select
Range("A1").Select
[color=green]With ThisWorkbook
' ActiveWorkbook.SaveAs (.Path & "\" & Replace(.Name, "." & Split(.Name, ".")(1), "_" & Format(Now, "YYYY-MM-DD_hh.mm.ss") & "." & Split(.Name, ".")(1)))
' End With
' With ThisWorkbook
' .SaveCopyAs "C:\" & Application.Replace(.Name, Len(.Name) - 3, 0, Format(Now, " dd/mm/yy h,n,s"))[/color]
' End With
ActiveWorkbook.Save
ActiveWindow.Close
End Sub