Excel — один из самых популярных программных продуктов в мире для работы с электронными таблицами. Часто пользователи сталкиваются с ситуацией, когда забывают пароль от своих файлов или получают файлы, защищенные паролем, без возможности его узнать. В этой статье мы расскажем вам, как удалить пароль в Excel от версии 95 до 2016, используя различные методы.
Перед тем, как начать процесс удаления пароля, важно убедиться, что у вас есть права на редактирование файла. Если вы не являетесь автором файла или не имеете соответствующих разрешений, удаление пароля будет невозможно.
Один из самых простых способов удалить пароль в Excel — использовать специализированные программы, которые способны обойти защиту файла. Для этого достаточно скачать и установить одну из таких программ, запустить ее и следовать инструкциям на экране. Однако, пользоваться такими программами следует с осторожностью, так как они могут содержать вредоносное ПО.
Если вы не желаете рисковать и хотите удалить пароль без использования сторонних программ, Excel предлагает встроенные средства для этого. Однако, для каждой версии Excel эти средства могут отличаться, поэтому мы рассмотрим несколько вариантов для разных версий программы, чтобы вы смогли выбрать подходящий для вас.
Восстановление пароля в Excel 95-2003 с использованием VBA кода
Если вам нужно восстановить пароль от защищенного листа Excel версии 95-2003, вы можете воспользоваться VBA кодом, который поможет удалить парольную защиту.
Следуйте этим шагам, чтобы восстановить пароль:
- Откройте файл Excel, для которого нужно восстановить пароль.
- Нажмите «Alt» + «F11», чтобы открыть окно редактора кода VBA.
- Кликните правой кнопкой мыши в окне проекта VBA и выберите «Insert» -> «Module», чтобы добавить новый модуль.
- Вставьте следующий код VBA в окно модуля:
| Sub PasswordBreaker() |
| Dim i As Integer, j As Integer, k As Integer |
| Dim 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 |
| Dim n1 As Integer, n2 As Integer, n3 As Integer |
| Dim n4 As Integer, n5 As Integer, n6 As Integer |
| Dim n7 As Integer, n8 As Integer, n9 As Integer |
| Dim s As String |
| On Error Resume Next |
| For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 |
| For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 |
| For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 |
| For i5 = 65 To 66: For i6 = 65 To 66: For n1 = 65 To 66 |
| For n2 = 65 To 66: For n3 = 65 To 66: For n4 = 65 To 66 |
| For n5 = 65 To 66: For n6 = 65 To 66: For n7 = 65 To 66 |
| For n8 = 65 To 66: For n9 = 32 To 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(n1) & Chr(n2) & _ |
| Chr(n3) & Chr(n4) & Chr(n5) & Chr(n6) & Chr(n7) & _ |
| Chr(n8) & Chr(n9) |
| If ActiveSheet.ProtectContents = False Then |
| MsgBox «One usable password is » & Chr(i) & Chr(j) & _ |
| Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ |
| Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n1) & _ |
| Chr(n2) & Chr(n3) & Chr(n4) & Chr(n5) & Chr(n6) _ |
| & Chr(n7) & Chr(n8) & Chr(n9) |
| Exit Sub |
| End If |
| Next: Next: Next: Next: Next: Next |
| Next: Next: Next: Next: Next: Next |
| End Sub |
- Нажмите «F5» или выберите «Run» -> «Run Sub/UserForm», чтобы запустить код.
- Во всплывающем окне будет отображен обнаруженный пароль.
- Запишите пароль и закройте окно редактора кода VBA.
- Вернитесь в Excel и введите полученный пароль, чтобы разблокировать защищенный лист.
Теперь у вас есть доступ к защищенному листу Excel версии 95-2003 без знания исходного пароля.