Скрыть все листы и отображать их поочередно

Дата: Пятница, 16.10.2015, 13:57 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

Репутация: 9 ±

Замечаний: 0% ±

Excel 2010

Добрый день!

Описываю ситуацию, чего хочу:

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

Код знаю частично. Чего не понимаю - как скрыть все листы?
И как отобразить часть листов при нажатии на кнопку, если листы скрыты методом .IsAddin = True

Буду признателен!
[moder]Приложите файл-пример![/moder]

e-mail: akobir.ismailov@gmail.com

Сообщение отредактировал Manyasha - Пятница, 16.10.2015, 14:39

Дата: Пятница, 16.10.2015, 17:43 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата akobir, 16.10.2015 в 13:57, в сообщении № 1

как скрыть все листы?

Никак. Хотя-бы один лист должен быть видимым.

Цитата akobir, 16.10.2015 в 13:57, в сообщении № 1

если листы скрыты методом .IsAddin = True

Это не листы скрыты, а книга переключена в режим надстройки. А у надстройки нет видимых листов.

Быть или не быть, вот в чем загвоздка!

Дата: Пятница, 16.10.2015, 21:04 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

Репутация: 9 ±

Замечаний: 0% ±

Excel 2010

RAN, А нажатием кнопки на форме выйти из режима надстройки никак?
Файл прикладываю.

К сообщению приложен файл: 1130807.xlsm (20.5 Kb)

e-mail: akobir.ismailov@gmail.com

Дата: Пятница, 16.10.2015, 21:33 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Не, пулемета я вам не дам...

[vba]

Код

Private Sub CommandButton1_Click()
ThisWorkbook.IsAddin = False
End Sub

[/vba]
Совсем никак?

Быть или не быть, вот в чем загвоздка!

Дата: Пятница, 16.10.2015, 21:36 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

Репутация: 9 ±

Замечаний: 0% ±

Excel 2010

RAN, Без ножа режете. Не настолько ж я чайник. :D
Совсем никак.

e-mail: akobir.ismailov@gmail.com

Дата: Пятница, 16.10.2015, 21:38 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

Репутация: 9 ±

Замечаний: 0% ±

Excel 2010

Точнее, оно начинает ругаться и просит сохранить файл как надстройку Excel.

e-mail: akobir.ismailov@gmail.com

Дата: Пятница, 16.10.2015, 21:46 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Сказочник!

[p.s.]Из моей надстройки (формат файла xlsb)
[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("Cell").Controls.Item("Ìîè_Èçáðàííûå").Delete
'    GetCommandBar(TOOLBAR_NAME, True).Visible = False
    GetCommandBar(PROJECT_NAME, True).Visible = False
    If ThisWorkbook.IsAddin = False Then
        Application.DisplayAlerts = False
        Windows(ThisWorkbook.Name).Visible = False
        ThisWorkbook.Save
        Application.DisplayAlerts = True
    End If
End Sub

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    ThisWorkbook.IsAddin = True
'    SetIsAddinAsTrue
    On Error Resume Next
    Application.CommandBars("Cell").Controls.Item("Ìîè_Èçáðàííûå").Delete
    On Error GoTo 0
    FInic
    ÔîðìèðîâàíèåÏàíåëèÈíñòðóìåíòîâ
    Application.ScreenUpdating = True
End Sub

[/vba][/p.s.]

К сообщению приложен файл: 2738774.xlsm (21.1 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 16.10.2015, 21:50

Дата: Пятница, 16.10.2015, 21:54 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

Репутация: 9 ±

Замечаний: 0% ±

Excel 2010

RAN, Благодарю! Сейчас уже голова тяжелая, завтра с утра начну разбираться.

e-mail: akobir.ismailov@gmail.com

Дата: Суббота, 17.10.2015, 10:24 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

Репутация: 9 ±

Замечаний: 0% ±

Excel 2010

RAN, Не совсем понимаю, как это работает?

e-mail: akobir.ismailov@gmail.com

Дата: Суббота, 17.10.2015, 12:04 | Сообщение № 10

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

А вам и не нужно разбираться.
90% кода до вашей проблемы не касаемо.
Это просто работающий код, опровергающий ваше утверждение

Цитата akobir, 16.10.2015 в 21:38, в сообщении № 6

Точнее, оно начинает ругаться и просит сохранить файл как надстройку Excel.

До вас касаемо только
[vba]

Код

ThisWorkbook.IsAddin = True/False

[/vba]

Быть или не быть, вот в чем загвоздка!

Дата: Суббота, 17.10.2015, 12:24 | Сообщение № 11

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

Репутация: 9 ±

Замечаний: 0% ±

Excel 2010

RAN, Это понятно. Объясните, пожалуйста, куда вставлять код надстройки? :)

Дошло, в код книги.
В таком случае, прошу расшифровать то, что написано кириллицей.

e-mail: akobir.ismailov@gmail.com

Сообщение отредактировал akobir - Суббота, 17.10.2015, 12:25

Дата: Суббота, 17.10.2015, 14:07 | Сообщение № 12

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Кирилицей написаны названия моих процедур и панелей

Быть или не быть, вот в чем загвоздка!