VBA Сховати (або показати) аркуш - Приклади коду VBA

Цей підручник навчить вас, як приховати та показати робочі аркуші за допомогою VBA.

Сховати аркуш у VBA

Щоб приховати аркуш у VBA, скористайтесь властивістю Visible робочого аркуша.

Або встановіть для властивості Visible значення FALSE:

1 Робочі аркуші ("Аркуш1"). Видимий = Неправда

або встановіть для властивості Visible значення xlSheetHidden:

1 Робочі аркуші ("Аркуш1"). Visible = xlSheetHidden

Це так само, як якщо б користувач клацнув правою кнопкою миші на вкладці аркуша і вибрав "сховати".

Показати аркуш

Щоб показати аркуш у VBA, скористайтесь властивістю Visible робочого аркуша:

1 Робочі аркуші ("Аркуш1"). Видимий = Правда

або

1 Робочі аркуші ("Аркуш1"). Видимий = xlSheetVisible

Приховані аркуші можна побачити, клацнувши правою кнопкою миші у вкладці «Робочий лист»:

Дуже приховані аркуші

Властивість Sheet Visible має третій варіант: xlSheetVeryHidden:

1 Робочі аркуші ("Аркуш1"). Видимий = xlSheetVeryHidden

Дуже приховані аркуші приховуються, якщо клацнути правою кнопкою миші в області вкладки Робочий лист:

Цей код не дозволить користувачеві електронної таблиці бачити вкладку Робочий лист у нижній частині екрана. Він також приховує робочий аркуш від користувача, коли він натискає правою кнопкою миші вкладки внизу. Єдиний спосіб дізнатися, що робочий аркуш існує (або показати робочий аркуш) - це відкрити редактор Visual Basic.

Показати дуже приховані аркуші

Дуже приховані робочі листи стають видимими, як і звичайні приховані робочі аркуші:

1 Робочі аркуші ("Аркуш1"). Видимий = Правда

або

1 Робочі аркуші ("Аркуш1"). Видимий = xlSheetVisible

Сховати / показати аркуші в редакторі VBA

Ви також можете перемикати властивість «Видимий аркуш» у редакторі VBA:

Приховати всі вкладки робочого аркуша

Можливо, вам також захочеться взагалі приховати область вкладки «Робочий лист», щоб запобігти переходу користувача до різних аркушів. Докладніше про приховування вкладок робочого аркуша.

Сховати / показати аркуші в захищеній книзі

Перш ніж приховати або показати робочі аркуші, ваша книга повинна бути незахищеною. Щоб зняти захист структури книги, скористайтеся таким кодом:

1 ActiveWorkbook.Unprotect

Якщо структура вашої книги захищена паролем, потрібно зробити це:

1 ThisWorkbook.Unprotect "пароль"

Показати всі аркуші

Ця процедура покаже всі робочі аркуші у книзі, використовуючи для кожної петлі:

12345678 Sub Unhide_All_Sheets ()Затемнити як робочий аркушActiveWorkbook.UnprotectДля кожного ws у робочих аркушахws.Visible = xlSheetVisibleДаліEnd Sub

Зверніть увагу, що спочатку ми зняли захист книги, на випадок, якщо вона була захищена паролем.

wave wave wave wave wave