Бекітілген Excel парағының құлпын ашу үшін VBA коды: 4 қадам

2024 Автор: John Day | [email protected]. Соңғы өзгертілген: 2024-01-30 10:26

Егер сіз Excel жұмыс парақтарының бірінің құпия сөзін ұмытып қалсаңыз, мұның қаншалықты көңілсіз болатынын білесіз. Бұл нұсқаулықта қолданылатын код - мен тапқан ең қарапайым кодтардың бірі. Ол қорғалған парақтың құлпын ашатын пайдалы кодты жасайды. Мен код үшін несие ала алмаймын, себебі мен оны бір сәтте таптым (және мен сайттың қайда екенін таба алмаймын) … сондықтан, егер ол сіз үшін жұмыс істемесе, мен көп көмектесе алмаймын. Мен сәттілікке қол жеткіздім және бөлісемін деп ойладым.

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 -ға: k = 65 -тен 66 -ға дейін l = 65 -тен 66 -ға: m = 65 -тен 66 -ға: i1 = 65 -тен 66 -ға дейін i2 = 65 -тен 66 -ға: i3 = 65 -тен 66 -ға: i4 = 65 үшін I6 = 65 -тен 66 -ға дейін: i6 = 65 -тен 66 -ға: n = 32 -ден 126 -ге ActiveSheet үшін. & 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) Ішкі соңынан шығу Егер Келесі: Келесі: Келесі: Келесі: Келесі: Келесі Келесі: Келесі: Келесі: Келесі: Келесі: Келесі: Келесі: Келесі Аяқтау _

3 -қадам: Макросты іске қосыңыз

Код қосылғаннан кейін VBA редакторының экранының жоғарғы жағындағы мәзір қойындысынан Іске қосу пәрменін таңдау арқылы макросты іске қосыңыз немесе F5 пернесін басыңыз.

4 -қадам: Жасалған кодты қолданыңыз

Макрос сізді қорғауды қажет ететін жұмыс парағына қайтарады. Қолданылатын кодпен ескерту стилі терезесі пайда болады. Қарау мәзірі қойындысында Парақты қорғауды нұқыңыз. Жасалған кодты құпия сөз ретінде енгізіңіз. Сіздің парағыңыз құлыптан босатылуы керек! Сіз бұл жұмысты парақтардың құлпын ашу үшін ақылмен және жауапкершілікпен пайдалануыңыз керек.