Сохранение книги Excel по названию ячейки и по пути ячейки

[IFRSoff]

Уважаемые профессионалы. Подскажите, пожалуйста. Можно ли закрывая книгу Excel, сделать так, чтобы она сохранялась под именем допустим ячейки A1, а путь сохранения ячейка А2? Это необходимо для актуального ведения журнала книг. Вообщем, чтоб ламеры не тупили соими разными шрифтами и не проявляли свою фантазию. А документы имели строгое название допутим контрагент и номер договора и списков и ничего другого. Ну я думаю, вы меня понимаете Папка сохранения тоже будет, конкретного контрагента.

[EducatedFool]

Можно. Но есть несколько нюансов.

1) Что делать, если пользователь пытается сохранить файл под другим именем (или в другую папку)?
Выводить сообщение о невозможности данного действия, или просто блокировать возможность сохранения?
А, может, предлагать сохранить под нужным именем?

2) А если пользователь изменит значения ячеек A1 и A2?
3) Что делать, если путь, указанный в ячейке A2, не существует?
4) Что делать, если файловая система откажет в сохранении по нужному пути (из-за разграничения прав)?
5) Что мешает пользователю закрыть этот файл, и вручную скопировать в нужную папку?

Я бы сделал проще - просто запретил бы команду Сохранить как...
Это делается макросом из одной строки:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = SaveAsUI
End Sub

Всё вышеперечисленное не будет работать, если макросы отключены.

[eto]

и как же, всё-таки, задать такое имя?
в таком вот случае:
сначала листы из книги1 перемещаются в новую книгу2, вот так:
Sheets(Array("лист", "ещё лист")).Move
далее нужно сделать чтобы сразу выскакивало окошко сохранения книги2, при чем имя должно быть задано как сцепка значений двух ячеек из старой книги1 (ну или можно значение одной ячеки взять), а вот куда у себя на компе эту книгу сохранят мне всё равно

[SAS888]

После того, как переместили листы, выполните код:

With Workbooks("Книга1.xls").Sheets("Лист1")
    Имя_для_сохранения$ = .[A1] & .[A2] 'Формируем имя, сцепляя нужные ячейки
End With

FName = Application.GetSaveAsFilename(InitialFileName:=Имя_для_сохранения)

P.S. Обратите внимание, чтобы в "Книга1" существовал "Лист1".

[eto]

работает, спасибо!

[eto]

ха, что-то я поторопилась.. не работает , т.е. диалоговое окно вызывается, а вот самого сохранения не происходит - у имени файла нет расширения и в выпадающем списке Тип файла: нет никаких вариантов, кроме Все файлы(*.*)

если нажать ОК, окошко молча закроется, имя у книги останется прежним и нового файла в папке, куда сохранялось не появится.

[EducatedFool]

Попробуйте так:

Sub test()
    Имя_для_сохранения = [A1] & [A2]    'Формируем имя, сцепляя нужные ячейки

    FName = Application.GetSaveAsFilename(InitialFileName:=Имя_для_сохранения, _
                                          FileFilter:="Excel Files (*.xls), *.xls", _
                                          Title:="Выберите имя файла для сохранения")
    
    If VarType(FName) <> vbBoolean Then Workbooks("Книга1.xls").SaveAs FName
End Sub

[eto]

собрала код из двух, но все равно пока не получается, выдаёт ошибку вот здесь:

With Workbooks("Таблички.xlsm").Sheets("вводная")
    Имя_для_сохранения = .[G18] & "_" & .[G22]   'Формируем имя, сцепляя нужные ячейки из старой книги, откуда были перемещены листы в новую книгу, которую и нужно сохранить
    End With
        
    FName = Application.GetSaveAsFilename(InitialFileName:=Имя_для_сохранения, _
                                          FileFilter:="Excel Files (*.xls), *.xls", _
                                          Title:="Выберите имя файла для сохранения")
    
    If VarType(FName) <> vbBoolean Then Workbooks("Книга1.xls").SaveAs FName

соответственно, при переносе страниц новая книга может быть с разным порядковым номером, т.к. операция извлечения страниц может производиться несколько раз, да и пользователь может не только с моим документом работать

[EducatedFool]

выдаёт ошибку вот здесь:
Workbooks("Книга1.xls").SaveAs FName

Так попробуйте заменить имя файла Книга1.xls на имя своего файла...

Если книга, которую Вы пытаетесь сохранить, в момент работы макроса активна, то можно написать так:
If VarType(FName) <> vbBoolean Then ActiveWorkbook.SaveAs FName

Если же этот макрос запускается как раз из сохраняемой книги - тогда лучше так:
If VarType(FName) <> vbBoolean Then ThisWorkbook.SaveAs FName

И не забывайте - раз уж у Вас Excel 2007, то, соответственно, измените строку с фильтром -
вместо FileFilter:="Excel Files (*.xls), *.xls"
поставьте что-то вроде FileFilter:="Excel Files (*.xlsm), *.xlsm"

[eto]

спасибо, с сохранением всё получилось. ^.^_b

остался такой нюанс - при открытии нового сохраненного файла слетает запрет на выделение защищенных ячеек
пока работаешь с этим файлом не закрывая его после создания - всё ок, но если закрыть, а потом снова открыть - разрешает выделять все ячейки, хотя они по-прежнему остаются заблокированными, в чем может быть дело?
в приложении пример