Разбить книгу

[Alex19789]

Уважаемые форумчане, возник ещё один вопрос, подскажите пожалуйста:
Есть книга, в ней 90 листов.
Открытие этой книги занимает очень долгое время (около 2-х минут).

Возможно-ли разбить её на 90 книг по 1-му листу согласно листам исходной книги с сохранением форматирования, связей и защиты листов исходной книги для каждой вновь полученной книги. Названия полученных книг должны совпадать с названиями листов исходной книги.
Это нужно для уменьшения времени открытия и сохранения книг.
Заранее благодарен.

[Alex19789]

Уважаемые форумчане!
Помогите пожалуйста, времени катастрофически не хватает!
Возможно-ли вообще решить такую задачу или же решение настолько просто, что вам не интересно...

[EducatedFool]

Решить задачу, конечно же, можно.
На форуме есть примеры (один из этих примеров делал я)

Сохранить форматирование - не проблема.
Со связями будет посложнее. Какие связи присутствуют? Между листами, или между книгами?
Защиту можно устанавливать на каждую из вновь созданных книг.

[Alex19789]

Связи присутствуют между книгами.

[Teslenko_EA]

Здравствуйте Alex19789.
Ваша задача может быть выполнена подобным кодом, предварительно открыв все файлы учавствующие в связи:

Const FPath = "C:\Folder\" ' папка назначения, обдумайте её расположение, т.к. все ссылки после "дробления" будут указывать на неё
Sub saveSheets()
Dim o As Object, XL As Workbook, s$
Set XL = ActiveWorkbook
If Len(Dir(FPath, vbDirectory)) = 0 Then makeDir FPath
ChDir FPath
    For Each o In Worksheets
        s = o.Name
        If Worksheets.Count = 1 Then
            XL.SaveAs Filename:=FPath + s + ".xls", FileFormat:=xlNormal
        Else
            Sheets(s).Move
            ActiveWorkbook.SaveAs Filename:=FPath + s + ".xls", FileFormat:=xlNormal
            Windows(XL.Name).Activate
        End If
   Next
End Sub
Sub makeDir(s$)
    MkDir s
End Sub

Евгений.

[Alex19789]

Спасибо Teslenko_EA!
Всё работает, но есть некоторые проблемки: у меня в книге много диаграмм, на некоторых из них сбилось форматирование, а конкретно легенды (вместо названий рядов, которые нужно отображать в легенде, отображаются названия других рядов, которые отображать не нужно). Пример во вложении.