VBA код за отключване на заключен Excel лист: 4 стъпки

2024 Автор: John Day | [email protected]. Последно модифициран: 2024-01-30 07:53

Ако някога сте забравили парола за един от работните си листове на Excel, знаете колко разочароващо може да бъде това. Кодът, използван в тази инструкция, е един от най -простите, които съм намерил. Той ще генерира използваем код, който ще отключи вашия защитен лист. Не мога да взема кредит за кода, тъй като просто го намерих в момент на нужда (и вече не мога да намеря къде е сайтът) … така че няма да съм много полезен, ако не работи за вас, но аз имах успех и реших да споделя.

Стъпка 1: Отворете VBA

Отворете работния лист, за който сте забравили паролата си. Използвайте Alt+F11, за да влезете в редактора на макроси. След като във VBA щракнете двукратно върху листа, който трябва да отключите от списъка с менюта вляво. Това ще отвори страницата с общи декларации за листа.

Стъпка 2: Изрежете и поставете кодовия прекъсвач

Вмъкнете кода по -долу в страницата с общи декларации, която сте отворили. Не бива да се налага да променяте нищо, името на листа и т.н. … Просто изрежете и поставете._ Sub PasswordBreaker () 'Прекъсва защитата с парола на работния лист. Dim i As Integer, j As Integer, 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 Възобновяване на грешката Следваща за 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 До 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) Ако 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: Стартирайте макроса

След като кодът бъде добавен, стартирайте макроса, като изберете Run от лентата с раздели на менюто в горната част на екрана на VBA редактора или просто натиснете F5

Стъпка 4: Използвайте генерирания код

Макросът ще ви върне към работния лист, който искате да премахнете. Ще се появи поле за стил на предупреждение с използваем код. В раздела меню Преглед щракнете върху Unprotect sheet. Въведете генерирания код като парола и сте готови. Вашият лист трябва да бъде отключен! Трябва да използвате тази сила разумно и отговорно само за отключване на вашите собствени работни листове.