Cum să deblochezi un fișier Excel

Zilele trecute soția mea mă roagă să o ajut cu ceva. Are un fișier Excel blocat, pe care nu poate să îl editeze. Pentru că este blocat, trebuie de fiecare dată să îl printeze și să facă niște ajustări manuale. Știe că sunt wiz kid și poate reușesc să îl deblochez eu. Challenge accepted!

După o căutare pe Google am descoperit că protecția fișierelor Excel este destul de slabă chiar și pentru versiunile mai recente. Eu folosesc pachetul Office 2016.

Există mai multe metode de a debloca un fișier Excel, dar aceasta mi s-a părut destul de ușoară. Urmează pașii de mai jos.

1. Deschide fișierul Excel sau sheet-ul care este blocat. Îți poți da seama că fișierul este blocat pentru că butoanele din ribbon sunt inactive și de culoare gri.
2. Apasă combinația de taste Alt+F11 pentru a deschide Visual Basic Editor
3. Click dreapta în panoul din stânga (Project-VBAProject) , selectează Insert și Module
4. În câmpul care apare în dreapta, fă paste la codul următor:

   Sub PasswordBreaker()     'Breaks worksheet password protection.     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 "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

5. Apasă tasta F5 sau butonul Run din toolbar
6. Vei primi un mesaj pe care îl poți ignora și apasă direct ok.
7. Întoarce-te la fișierul tău Excel și vei observa că a fost deblocat și acum îl poți edita.
8. Salveză documentul cu extensia .xls

Sursa: https://www.ablebits.com/office-addins-blog/2016/02/10/protect-unprotect-excel-sheet-password/