Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
d = Format(Now(), "yyyy-mm-dd_HH.mm.ss")
s = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
ThisWorkbook.SaveCopyAs "E:\test\" & s & "_" & d & ".xlsm"
End Sub