Оглавление:
2025 Автор: John Day | [email protected]. Последнее изменение: 2025-01-13 06:58
Если вы когда-либо забыли пароль для одной из ваших таблиц Excel, вы знаете, насколько это может быть неприятно. Код, использованный в этой инструкции, - один из самых простых, которые я нашел. Он сгенерирует полезный код, который разблокирует ваш защищенный лист. Я не могу поверить в код, так как я просто нашел его в момент необходимости (и я больше не могу найти, где находится сайт) … ооочень я не буду сильно помогать, если он не работает для вас, но у меня добился успеха и подумал, что поделюсь.
Шаг 1. Откройте VBA
Откройте рабочий лист, к которому вы забыли пароль. Используйте Alt + F11, чтобы войти в редактор макросов. После того, как в VBA дважды щелкните лист, который нужно разблокировать, из списка меню слева. Это откроет страницу общих объявлений для этого листа.
Шаг 2. Вырежьте и вставьте взломщик кода
Вставьте приведенный ниже код на страницу общих объявлений, которую вы открыли. Вам не нужно ничего менять, имя листа и т. Д. Просто вырежьте и вставьте._ Sub PasswordBreaker () 'Срывает защиту рабочего листа паролем. Dim i As Integer, j As Integer, k как целое число Dim l как целое число, m как целое число, n как целое число Dim i1 как целое, i2 как целое, i3 как целое Dim 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 До 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 If Next: Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub _
Шаг 3: запустите макрос
После добавления кода запустите макрос, выбрав «Выполнить» на панели вкладок меню в верхней части экрана редактора VBA или просто нажав F5.
Шаг 4: используйте сгенерированный код
Макрос вернет вас на рабочий лист, с которого вы хотите снять защиту. Появится окно стиля предупреждения с используемым кодом. На вкладке меню «Обзор» нажмите «Снять защиту с листа», введите сгенерированный код в качестве пароля и готово. Ваш лист должен быть разблокирован! Вы должны использовать эту возможность с умом и ответственно только для разблокировки ваших собственных листов.