Переключение между книгами

[stas77]

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

[Teslenko_EA]

Здравствуйте stas77.
прежде чем пытаться открыть документ, стоит убедиться в том, что его нет среди уже открытых

...
Const sBook = "Книга1.xlsm"
Dim o As Workbook, s$
For Each o In Workbooks
    If o.Name = sBook Then
        Windows(sBook).Activate
        Exit Sub
    End If
Next
s = ThisWorkbook.Path + "\" + sBook
If Len(Dir(s)) > 0 Then Workbooks.Open s
...

подобная корректировка Вашего кода, решит эту проблему.
Евгений.

[SAS888]

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

Или иначе. Открывать книгу, запретив вывод сообщения о том, что этот файл уже открыт. Тогда без разницы, если он не открыт - откроется. А если открыт - активируется. Например, так:

Application.DisplayAlerts = False: Workbooks.Open "Книга1.xlsm"

[stas77]

Сообщение от SAS888

Или иначе. Открывать книгу, запретив вывод сообщения о том, что этот файл уже открыт. Тогда без разницы, если он не открыт - откроется. А если открыт - активируется. Например, так:

Application.DisplayAlerts = False: Workbooks.Open "Книга1.xlsm"

Спасибо мне помог уже Scream, чтоб заработало!
Но у него получилось вот так!
Sub Факт_БАР()

Const sBook = "Факт БАР.xlsm"
Dim o As Workbook, s$
For Each o In Workbooks
If o.Name = sBook Then
Windows(sBook).Activate
Exit Sub
End If
Next
s = ThisWorkbook.Path + "\" + sBook
If Len(Dir(s)) > 0 Then Workbooks.Open s

End Sub

[Teslenko_EA]

Здравствуйте stas77.
я конечно рад за Вас, что "мне помог уже Scream".
Вы "случайно" не заметили сходства с кодом выложенным мною - Вчера, 23:02 ?
Евгений.

[stas77]

Сообщение от Teslenko_EA

Здравствуйте stas77.
я конечно рад за Вас, что "мне помог уже Scream".
Вы "случайно" не заметили сходства с кодом выложенным мною - Вчера, 23:02 ?
Евгений.

Доброго времени суток, уважаемый Teslenko_EA!!!
Сердешно извиняюсь перед Вами!!! Да Вы первоисточник это точно, и за это Вам огромное спасибо!
Но не выходило у меня завинтить к своему сборнику книг прям вот так вот, обратился к Scream..он довольно долго разбирался скорее в моих ошибках (связи между книгами, форматы и тд) и сделал!!! За что и ему огромное спасибо!!!
Так что еще раз огромное дружеское спасибо!!!
И еще раз "сори"!!!