Този урок ще ви научи как да скриете и покажете работни листове с VBA.
Скриване на лист във VBA
За да скриете лист във VBA, използвайте свойството Visible на работния лист.
Или задайте свойството Visible на FALSE:
| 1 | Работни листове ("Sheet1"). Visible = False |
или задайте свойството Visible на xlSheetHidden:
| 1 | Работни листове ("Sheet1"). Visible = xlSheetHidden |
Това е същото като ако потребителят щракне с десния бутон върху раздела на работния лист и избере „скрий“.
Показване на листа
За да скриете лист във VBA, използвайте свойството Visible на работния лист:
| 1 | Работни листове („Лист1“). Видимо = Вярно |
или
| 1 | Работни листове ("Sheet1"). Visible = xlSheetVisible |
Скритите листове могат да се видят, като щракнете с десния бутон в областта на раздела Работен лист:
Много скрити чаршафи
Свойството Sheet Visible има трета опция: xlSheetVeryHidden:
| 1 | Работни листове ("Sheet1"). Visible = xlSheetVeryHidden |
Много скритите таблици са скрити, когато щракнете с десния бутон в областта на раздела Работен лист:
Този код ще попречи на потребителя на електронната таблица да види раздела Работен лист в долната част на екрана. Той също така скрива работния лист от потребителя, когато щракне с десния бутон върху разделите в долната част. Единственият начин да се види дали работният лист съществува (или да се покаже работния лист) е чрез отваряне на редактора на Visual Basic.
Покажи много скрити листове
Много скритите работни листове се правят видими точно като обикновените скрити работни листове:
| 1 | Работни листове („Лист1“). Видимо = Вярно |
или
| 1 | Работни листове ("Sheet1"). Visible = xlSheetVisible |
Скриване / показване на листове в редактора на VBA
Можете също да превключите свойството Visible на работния лист в редактора на VBA:
Скриване на всички раздели на работни листове
Може също да искате да скриете изцяло областта на раздела „Работен лист“, за да попречите на потребителя да преминава към различни работни листове. Научете повече за скриването на раздели на работни листове.
Скриване / показване на листове в защитена работна книга
Работната ви книга трябва да е незащитена, преди да можете да скриете или скриете работни листове. За да премахнете защитата на структурата на вашата работна книга, използвайте следния код:
| 1 | ActiveWorkbook.Unprotect |
Ако структурата на вашата работна книга е защитена с парола, трябва да направите това:
| 1 | ThisWorkbook.Unprotect "password" |
Показване на всички таблици
Тази процедура ще покаже всички работни листове в работна книга, като използва за всеки цикъл:
| 12345678 | Sub Unhide_All_Sheets ()Затъмнете като работен листActiveWorkbook.UnprotectЗа всеки ws в работни листовеws.Visible = xlSheetVisibleСледващияEnd Sub |
Забележете, че първо премахваме защитата на работната книга, само в случай, че е защитена с парола.
