Скрытие всех листов кроме активного

Вход

Регистрация

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

= Мир MS Excel/Скрытие всех листов кроме активного - Мир MS Excel

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

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

Скрытие всех листов кроме активного (Макросы/Sub)

Скрытие всех листов кроме активного

Shakal07

Дата: Пятница, 02.07.2021, 18:16 | Сообщение № 1

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

Ранг: Участник

Сообщений: 54

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

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

Excel 2k3;2k7;2k10;2k13;2k19

Здравствуйте

Извините за беспокойство
имею макросы для отображения всех скрытых листов,
он работает но видает ошибку, так как нельзя скрыть все листы книги
[vba]

Код

Sub Скрыть_все_листи()
n = Sheets.Count
For i = 1 To n
  If Worksheets(i).Visible = True Then
     Worksheets(i).Visible = False
  End If
Next
End Sub

[/vba]

чем его допилить чтобы он скрывал все листы кроме активного
(ато сейчас скрывает все подряд крове последнего видимого листа)

Спасибо

Сообщение отредактировал Shakal07 - Пятница, 02.07.2021, 18:18

Ответить

Pelena

Дата: Пятница, 02.07.2021, 21:21 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Можно так, например
[vba]

Код

Sub Скрыть_все_листи()
n = Sheets.Count
For i = 1 To n
If Worksheets(i).Name<>Activesheet.Name Then
If Worksheets(i).Visible = True Then
Worksheets(i).Visible = False
End If
End If
Next
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Скрытие всех листов кроме активного (Макросы/Sub)

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