VBA ծածկագիրը կողպված Excel թերթիկը բացելու համար. 4 քայլ

2025 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2025-01-23 14:48

Եթե դուք երբևէ մոռացել եք ձեր Excel- ի աշխատանքային թերթերից մեկի գաղտնաբառը, ապա գիտեք, թե որքանով է դա հիասթափեցնող: Այս հրահանգում օգտագործված ծածկագիրը իմ գտած ամենապարզերից մեկն է: Այն կստեղծի օգտագործելի կոդ, որը կբացի ձեր պաշտպանված թերթիկը: Ես չեմ կարող վարկ վերցնել ծածկագրի համար, քանի որ այն պարզապես գտել եմ անհրաժեշտության պահին (և ես այլևս չեմ գտնում, թե որտեղ է կայքը)… այնքան, ես շատ օգնություն չեմ ունենա, եթե այն ձեզ համար չաշխատի, բայց ես հաջողություն ունեցա դրա հետ և մտածեցի, որ կիսվեմ:

Քայլ 1: Բացեք VBA- ն

Բացեք աշխատանքային թերթիկը, որի համար մոռացել եք ձեր գաղտնաբառը: Օգտագործեք Alt+F11 ՝ մակրո խմբագիրը մուտքագրելու համար: VBA- ում մեկ անգամ կրկնակի կտտացրեք թերթիկի վրա, որը դուք պետք է բացեք ձախ մենյուի ցուցակից: Սա կբացի թերթի ընդհանուր հայտարարագրերի էջը:

Քայլ 2. Կտրեք և տեղադրեք ծածկագիրը

Տեղադրեք ստորև բերված ծածկագիրը ձեր բացած ընդհանուր հայտարարագրերի էջում: Պետք չէ որևէ բան փոխել, թերթի անուն և այլն … Պարզապես կտրեք և տեղադրեք: k As IntegerDim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 - ից 66: For: j = 65 -ից 66 -ը `k = 65 -ից 66 -ի համար l = 65 -ից 66 -ի համար` m = 65 -ից 66 -ի համար `i1 = 65 -ից 66 -ի համար i2 = 65 -ից 66 -ի համար` i3 = 65 -ից 66 -ի համար `i4 = 65 -ի համար 66 -ի համար i5 = 65 -ից 66 -ի համար `i6 = 65 -ից 66 -ի համար` n = 32 -ից 126 ActiveSheet- ի համար: Չպաշտպանեք Chr (i) & Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) If ActiveSheet. ProtectContents = Կեղծ, ապա 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) Exit Sub End Եթե Հաջորդ: Հաջորդ: Հաջորդ: Հաջորդ: Հաջորդ: Հաջորդ: Հաջորդ Հաջորդ: Հաջորդ: Հաջորդ: Հաջորդ: Հաջորդ: Հաջորդ Վերջ Ենթ _

Քայլ 3: Գործարկեք մակրոը

Երբ ծածկագիրը ավելացվի, գործարկեք մակրոը ՝ VBA խմբագրի էկրանի վերևում ընտրացանկի ներդիրի բարից ընտրելով Գործարկել կամ պարզ սեղմել F5

Քայլ 4: Օգտագործեք ստեղծված ծածկագիրը

Մակրոյը ձեզ կվերադարձնի այն աշխատանքային թերթին, որը ցանկանում եք չպաշտպանել: Ահազանգի ոճի տուփ կհայտնվի օգտագործելի կոդով: Վերանայման ցանկի ներդիրում կտտացրեք «Անպաշտպան թերթ»: Մուտքագրեք գեներացված ծածկագիրը որպես գաղտնաբառ և կատարված: Ձեր թերթիկը պետք է ապակողպված լինի: Դուք պետք է այս ուժը օգտագործեք իմաստուն և պատասխանատու միայն ձեր սեփական աշխատանքային թերթերը բացելու համար: