Кулпуланган Excel баракчасынын кулпусун ачуу үчүн VBA коду: 4 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:42

Эгерде сиз Excel баракчаңыздын бирөөсүнүн сырсөзүн унутуп калсаңыз, бул канчалык капаландырарын билесиз. Бул нускамада колдонулган код мен тапкан эң жөнөкөй коддордун бири. Бул сиздин корголгон баракчаңыздын кулпусун ача турган жарактуу кодду түзөт. Мен коду үчүн кредит ала албайм, анткени мен аны муктаж болгон учурда таптым (жана мен сайттын мындан ары кайда экенин таба албайм) … sooo, эгер ал сиз үчүн иштебесе, мен көп жардам бербейм ийгиликке жеттим жана бөлүшөм деп ойлодум.

1 -кадам: VBA ачуу

Сырсөзүңүздү унуткан иш баракчаңызды ачыңыз. Макро редакторго кирүү үчүн Alt+F11ди колдонуңуз. VBAда сол жагындагы меню тизмесинен ачуу керек болгон баракты эки жолу чыкылдатыңыз. Бул барак үчүн жалпы декларациялар баракчасын ачат.

2 -кадам: Код бузуучуну кесип, чаптаңыз

Төмөндөгү кодду ачылган жалпы декларациялар барагына киргизиңиз. Сиз эч нерсени, баракчанын атын ж.б. алмаштырбаңыз … Жөн эле кесип, чаптаңыз._ Sub PasswordBreaker () 'Иш парагынын сырсөзүн коргоону бузат. k IntegerDim l Бүтүндүк катары, m Бүтүндүк катары, n Бүтүн Дим катары i1 Бүтүндүк катары, i2 Бүтүндүк катары, i3 Бүтүндүк катары Дим i4 Бүтүндүк катары, i5 Бүтүндүк катары, i6 Бүтүндүк катары Ката боюнча улантуу Кийинки i = 65тен 66га чейин: үчүн j = 65тен 66га: к үчүн 65тен 66га чейин л = 65ке 66га: м = 65ке 66га: i1ге 65ке 66га i2ге 65ке 66га: i3 = 65ке 66га: i4 = 65ке 66 үчүн i5 = 65 үчүн 66 үчүн: i6 = 65 үчүн 66 үчүн: n = 32 үчүн 126 ActiveSheet. Unprotect Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) ActiveSheet. ProtectContents = False анда MsgBox "Бир колдонулуучу сырсөз" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5)) & Chr (i6) & Chr (n) Sub Endден чыгуу Эгерде Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки: Кийинки Кийинки Кийинки _

3 -кадам: Макрону иштетүү

Код кошулгандан кийин, VBA редакторунун экрандын жогору жагындагы меню өтмөк тилкесинен Run тандап же F5 жөнөкөй басуу менен Макрону иштетиңиз.

4 -кадам: Жасалган кодду колдонуңуз

Макро сизди коргоону каалабаган иш барагына кайтарат. Колдонууга жарактуу код менен эскертүү стили кутучасы пайда болот. Кароо менюсу барагында Баракты коргоону чыкылдатыңыз. Сырсөз катары түзүлгөн кодду киргизиңиз. Сиздин баракчаңыздын кулпусу ачылышы керек! Сиз бул күчтү акылдуулук менен жана жоопкерчилик менен өз баракчаңыздын кулпусун ачуу үчүн гана колдонушуңуз керек.