У овом чланку ћемо створити макро за скривање Екцел листа. Екцел лист је скривен променом његових својстава помоћу ВБА кода. Скривени Екцел лист не може бити видљив помоћу дугмета за откривање у апликацији Екцел.
У овом примеру, креирали смо образац за регистрацију капија.
Када корисник унесе детаље у образац и кликне на дугме за слање, детаљи се чувају у листу „Подаци“. Дугму „Пошаљи“ додељује се макро „СубмиттингДетаил“.
Лист са подацима може се сакрити или сакрити кликом на дугме „Лист са подацима“. Ако је листа „Подаци“ скривена, не може се учинити видљивом помоћу опције откривања која је доступна у Екцел листу.
Лист сакривен помоћу дугмета „Лист са подацима“ остаје видљив у истраживачу пројеката у ВБЕ (Висуал Басиц Едитор), а својства листа скривеног листа постављена су на клСхеетВериХидден.
Лист се такође може учинити врло скривеним без употребе ВБА кода. За то морамо отворити ВБЕ и поставити видљиво својство листа у прозору својстава на 2 - клСхеетВериХидден.
За скривање листа, тако да га нико не може открити, а да не зна лозинку за Вб пројекат, једноставно сакријте датотеку помоћу ВБА кода или промените видљиво својство листа на 2, тј. Кслсхеетверихидден и закључајте Вб пројекат заједно са лозинком.
За заштиту Вб пројекта лозинком, кликните десним тастером миша на Мицрософт Екцел објекат> Изабери својства ВБАПројецт …> Појавиће се дијалог ВБАПројецт својства.
У дијалогу Својства ВБАПројецт идите на картицу Заштита> потврдите избор у пољу за закључавање пројекта> доделите лозинку за пројекат. Лозинка коју додељујемо приложеној датотеци је „регистер“. За пројекат се може доделити било која лозинка.
Дугме „Лист са подацима“ се користи и за скривање и за откривање листа. Дугму „Лист са подацима“ додељен је макро „ТогглеХидингДатаСхеет“. Када корисник кликне на дугме и ако је датотека скривена, лист постаје видљив, а ако је лист видљив, лист је сакривен.
Лист се може учинити видљивим или кликом на дугме „Лист са подацима“ или променом видљивог својства на 0, тј. КслСхеетНормал користећи лозинку за ВБПројецт.
Молимо следите доле за код
Суб СубмиттингДетаил () Дим ЛастРов Ас Лонг 'Проналажење последњег реда у листу "Подаци" у који је потребно уметнути податке ЛастРов = Схеетс ("Дата"). Ранге ("А1"). СпециалЦеллс (клЛастЦелл) .Ров + 1 'Уметање података у листу "Подаци" са таблицама ("Подаци")' Додељивање серијског броја .Ранге ("А" & ЛастРов) = ЛастРов - 1 'Уметање података у листу "Подаци" од опсега Ф15 до Ј15 .Ранге ("Б" "& ЛастРов &": Ф "& ЛастРов) = Опсег (" Ф15: Ј15 "). Вредност завршава са 'Брисањем садржаја ћелије у опсегу опсега (" Ф15: Ј15 "). Изаберите Селецтион.ЦлеарЦонтентс Ранге (" Ф15 " ) .Одаберите Енд Суб Суб ТогглеХидингДатаСхеет () 'Провера да ли је лист тренутно сакривен ако су листови ("Подаци"). Видљив = клВериХидден Тхен "Код за израду листова видљивим Табеле (" Подаци "). Видљив = Истина" Код за скривање лист Схеетс ("Подаци"). Висибле = клВериХидден Енд Иф Енд Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште