Цей підручник навчить вас, як приховати та показати робочі аркуші за допомогою 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 |
Зверніть увагу, що спочатку ми зняли захист книги, на випадок, якщо вона була захищена паролем.