В тази статия ще създадем макрос за скриване на листа на Excel. Листът на Excel се прави скрит чрез промяна на свойствата му с помощта на код VBA. Скритият лист на Excel не може да стане видим, като използвате бутона за скриване в приложението Excel.
В този пример създадохме формуляр за регистрация на порта.
Когато потребителят въведе данните във формуляра и кликне върху бутона за изпращане, данните се записват в листа „Данни“. Бутонът „Изпращане“ получава макрос „Подаване на подробности“.
Листът с данни може да бъде скрит или скрит, като щракнете върху бутона „Информационен лист“. Ако листът „Данни“ е скрит, той не може да стане видим, като използвате опцията за скриване, налична в листа на Excel.
Листът, скрит с помощта на бутона „Лист с данни“, остава видим в изследователя на проекта във VBE (редактор на Visual Basic), а свойствата на листа на скрития лист са зададени на xlSheetVeryHidden.
Листът също може да бъде направен много скрит, без да се използва VBA код. За това трябва да отворим VBE и да зададем видимото свойство на листа в прозореца със свойства на 2 - xlSheetVeryHidden.
За да скриете лист, така че никой да не може да го скрие, без да знае паролата за проекта Vb, просто скрийте файла или като използвате VBA код, или променете видимото свойство на лист на 2, т.е. xlsheetveryhidden и заключете Vb проекта заедно с паролата.
За да защитите Vb Project с парола, щракнете с десния бутон върху обекта на Microsoft Excel> Изберете свойства на VBAProject …> Ще се появи диалоговият прозорец Свойства на VBAProject.
В диалоговия прозорец Свойства на VBAProject отидете на раздела Защита> поставете отметка в квадратчето за заключване на проекта> задайте паролата за проекта. Паролата, която задаваме за прикачения файл, е „регистър“. Човек може да зададе всяка парола за проекта.
Бутонът „Лист с данни“ се използва както за скриване, така и за скриване на листа. На бутона „Лист с данни“ е присвоен макрос „ToggleHidingDataSheet“. Когато потребителят щракне върху бутона и ако файлът е скрит, тогава листът става видим, а ако листът е видим, листът е скрит.
Листът може да стане видим или чрез щракване върху бутона „Лист с данни“ или чрез промяна на видимото свойство обратно на 0, т.е. xlSheetNormal, като се използва паролата за VBProject.
Моля, следвайте кода по -долу
Sub SubmittingDetail () Dim LastRow As Long 'Намиране на последния ред в листа "Data", където трябва да се вмъкнат данни LastRow = Sheets ("Data"). Range ("A1"). SpecialCells (xlLastCell) .Row + 1 "Вмъкване на данни в лист" Данни "с листове (" Данни ")" Присвояване на сериен номер. Range ("A" & LastRow) = LastRow - 1 "Вмъкване на данни в лист" Данни "от диапазон F15 до J15. Range (" B "& LastRow &": F "& LastRow) = Диапазон (" F15: J15 "). Стойността завършва с 'Изтриване на съдържанието на клетката в диапазона Диапазон (" F15: J15 "). Изберете Selection.ClearContents Range (" F15 " ) .Изберете End Sub Sub ToggleHidingDataSheet () 'Проверка дали листът е скрит в момента, ако Sheets ("Данни"). Visible = xlVeryHidden Then "Код за направата на листа видим Sheets (" Data "). Visible = True Else' Код за скриване листа Sheets ("Данни"). Visible = xlVeryHidden End If End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта