Як відновити загублений пароль захисту робочого аркуша в Excel?

Ми завжди встановлюємо паролі, щоб захистити деякі важливі робочі аркуші від знищення чи модифікації іншими. Але якщо ви забудете свої паролі, як би ви могли це зробити? На щастя, Excel підтримує деякий код VBA для відновлення втраченого пароля захисту робочого аркуша. Ви можете вирішити цю проблему так:

Відновіть загублений пароль захисту робочого аркуша в Excel за допомогою коду VBA

Відновіть загублений пароль захисту робочого аркуша в Excel за допомогою коду VBA

Наступний код VBA може допомогти вам швидко скасувати оригінальні паролі на аркуші.

1. Відкрийте робочий аркуш, який був захищений раніше.

2. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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?