Оставить Лист1 свернув все другие Листы

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Оставить Лист1 свернув все другие Листы - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Оставить Лист1 свернув все другие Листы (Макросы/Sub)

Оставить Лист1 свернув все другие Листы

Dersarius

Дата: Среда, 18.03.2015, 00:46 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

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

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

Excel 2010

Подскажите пожалуйста макрос, как свернуть все листы оставить только лист1?

Ответить

ShAM

Дата: Среда, 18.03.2015, 01:24 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1347

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

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

Excel 2010

Как-то так:
[vba]

Код

Sub bb()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Лист1" Then sh.Visible = False
Next
End Sub

[/vba]

Ответить

alex77755

Дата: Среда, 18.03.2015, 09:00 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 362

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

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

Свернуть или скрыть?
Свернеть окно можно
[vba]

Код

ActiveWindow.WindowState = xlMinimized

[/vba]

Могу помочь в VB6, VBA
Alex77755@mail.ru

Сообщение отредактировал alex77755 - Среда, 18.03.2015, 09:04

Ответить

Dersarius

Дата: Среда, 18.03.2015, 10:25 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

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

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

Excel 2010

Спасибо большое все получилось

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Оставить Лист1 свернув все другие Листы (Макросы/Sub)

Страница 1 из 1
1