друзья нашел вот такой макрос для Excel 2003
нужно тоже самое для Excel 2010
нужно чтобы макрос запускался автоматически при закрытии книги
Заранее Спасибо!!!
нужно тоже самое для Excel 2010
нужно чтобы макрос запускался автоматически при закрытии книги
Заранее Спасибо!!!
Код |
---|
Sub Переименовать_книгу() OldName = ActiveWorkbook.FullName NewName = Sheets("Лист1".[A1] & ".xls" If NewName = ".xls" Or NewName = ActiveWorkbook.Name Then Exit Sub ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & NewName Kill OldName End Sub |