Как восстановить утерянный пароль защиты рабочего листа в Excel?

Мы всегда устанавливаем пароли, чтобы защитить некоторые важные рабочие листы от уничтожения или изменения другими. Но если вы забудете свои пароли, как вы сможете это сделать? К счастью, Excel поддерживает некоторый код VBA для восстановления утерянного пароля защиты рабочего листа. Вы можете решить эту проблему следующим образом:

Восстановить утерянный пароль защиты рабочего листа в Excel с кодом VBA

Восстановить утерянный пароль защиты рабочего листа в Excel с кодом VBA

Следующий код VBA может помочь вам быстро отменить исходные пароли на листе.

1. Откройте свой рабочий лист, который ранее был защищен.

2. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: восстановить утерянный пароль защиты рабочего листа

Sub PasswordRecovery()
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
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 n = 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(n)
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(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

4. Затем нажмите F5 нажмите клавишу, чтобы запустить этот код, и появится диалоговое окно, нажмите OK чтобы закрыть его, и ваши пароли защищенного листа будут сразу же отменены.

Ноты:

1. С помощью этого кода вы просто восстанавливаете только один пароль защиты рабочего листа за раз, если есть несколько защищенных рабочих листов, вам нужно применять этот код один за другим.
2. Приведенный выше код взят из http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.

Статьи по теме

Как защитить сразу несколько листов в Excel?

Как снять защиту сразу с нескольких листов в Excel?