Kako obnoviti izgubljeno geslo za zaščito delovnega lista v Excelu?

Vedno nastavimo gesla, da zaščitimo nekatere pomembne delovne liste, da jih drugi ne uničijo ali spremenijo. Če pa pozabite gesla, kako bi to lahko storili? Na srečo Excel podpira nekaj kode VBA za obnovitev izgubljenega gesla za zaščito delovnega lista. S to težavo se lahko spoprimete takole:

Obnovite izgubljeno geslo za zaščito delovnega lista v Excelu s kodo VBA

Obnovite izgubljeno geslo za zaščito delovnega lista v Excelu s kodo VBA

Naslednja koda VBA vam lahko pomaga pri hitrem preklicu prvotnih gesel na delovnem listu.

1. Odprite svoj že zaščiteni delovni list.

2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: obnovite izgubljeno geslo za zaščito delovnega lista

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. Nato kliknite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, kliknite OK da ga zaprete, in gesla zaščitenega delovnega lista bodo takoj preklicana.

Opombe:

1. S to kodo naenkrat obnovite samo eno geslo za zaščito delovnega lista. Če je zaščitenih delovnih listov več, morate to kodo uporabiti enega za drugim.
2. Zgornja koda prihaja iz http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.

Sorodni članki

Kako zaščititi več delovnih listov hkrati v Excelu?

Kako odstraniti zaščito več delovnih listov hkrati v Excelu?