Екцел ВБА Унпротецт Схеет
Постоје ситуације у којима штитимо своје радне листове како бисмо спречили корисника да манипулише радним листовима. Док штитимо радни лист, обично држимо исту лозинку. У овом чланку ћемо вам показати начин уклањања заштите листа помоћу ВБА кодирања.
Примери
Пример # 1
Незаштита листова је 99% једноставнија од њихове заштите. Само нам треба лозинка за уклањање заштите радног листа.
Прво што треба да урадимо је да поменемо назив радног листа који ћемо уклонити из заштите. На пример, ако желите да уклоните заштиту листа под називом „Подаци о продаји“, онда би ваш ВБА код требао бити овакав.
Радни листови („Подаци о продаји“)
Затим приступите методи Унпротецт.
Као што видимо на горњој слици, не видимо ниједну врсту ИнтеллиСенсе листе која би нам помогла. Ово отежава посао, посебно за нове ученике.
Да бих то превазишао, обично се ослањам на декларацију ВБА променљиве као „Радни лист“.
Шифра:
Суб Унпретецт_Екампле1 () Дим Вс Ас Ворксхеет Енд Суб
Сада поставите декларисану променљиву на одговарајући лист.
Шифра:
Суб Унпретецт_Екампле1 () Дим Вс Ас Ворксхеет Сет Вс = Ворксхеетс ("Салес Дата") Енд Суб
Сада користите променљиву за приступ свим својствима и методама декларисане променљиве.
Као што видите на горњој слици, можемо приступити свим својствима и методама. Изаберите методу „Опозовите заштиту“ са листе ИнтеллиСенсе.
Тражи лозинку за уклањање заштите листа. Лозинку сам поставио као „Екцел @ 1234“, па ћу је доставити исту.
Ово ће уклонити заштиту радног листа под називом „Подаци о продаји“.
Шифра:
Суб Унпретецт_Екампле1 () Дим Вс Ас Ворксхеет Сет Вс = Ворксхеетс ("Салес Дата") Вс.Унпротецт Пассворд: = "Екцел @ 1234" Енд Суб
Ако нема лозинке, онда само треба да користимо методу „Унпротецт“ и занемаримо параметар „Пассворд“.
Шифра:
Суб Унпретецт_Екампле1 () Дим Вс Ас Ворксхеет Сет Вс = Ворксхеетс ("Салес Дата") 'Промените име радног листа према вашем захтеву Вс.Унпротецт' Ако нема лозинке, само проследите методу "УнПротецт" Енд Суб
Ако постоји лозинка, тада је морамо унети у двоструке наводнике. Лозинка разликује велика и мала слова, зато их пажљиво запамтите.
Пример # 2 - Само једним кликом уклоните заштиту из свих Екцел листова
Видели смо како да уклонимо заштиту одређеног радног листа. Замислите да имате много радних листова и да су сви радни листови заштићени истом лозинком, тада не можемо даље писати кодове за сваки радни лист посебно.
У тим случајевима морамо да користимо петље да бисмо петљали кроз колекцију предмета радног листа и са лакоћом их уклонили.
Код у наставку ће провући све радне листове и уклонити заштиту листа.
Шифра:
Суб Унпретецт_Екампле2 () Затамни В као радни лист за сваки В у АцтивеВоркбоок.Ворксхеетс Вс.Унпротецт Пассворд: = "Екцел @ 1234" 'Промените лозинку као што сте поменули док их штитите. Следећи Вс Крај Суб
Пример # 3 - Посебне ситуације
Ситуација 1: Да ли сте икада замислили када је наведена лозинка погрешна. Када је наведена лозинка погрешна, добићемо грешку 1004: Рун Тиме.
Да бисмо се позабавили тим грешкама, можемо да користимо опцију „Он Еррор ГоТо Лабел“. Доњи код је пример истог.
Шифра:
Суб Унпретецт_Екампле3 () Затамни као радни лист за сваки В у АцтивеВоркбоок.Радни листови о грешци ГоТо Еррормессаге Вс.Унпротецт Пассворд: = "Екцел @ 1234" 'Промените лозинку као што сте поменули док их штитите. Порука о грешци: МсгБок „Погрешна лозинка“ Следећа завршава под
Горњи код ће приказати леп оквир са поруком: „Погрешна лозинка.“
Ситуација 2: Када је лист заштићен без лозинке и ако наведете случајну лозинку, и даље ће уклонити заштиту радног листа без показивања било каквих грешака.
Ситуација 3: Када је лист заштићен лозинком, али ако не наведете лозинку, тада ће се појавити ВБА као оквир за унос лозинке за унос лозинке.
У горње поље за унос морамо да унесемо лозинку да бисмо уклонили заштиту радног листа. Ако кликнете на дугме Откажи, он ће изаћи из ВБА потпроцедуре не приказујући ништа, осим ако постоји поље за корисничку поруку.
