Connect with us

Cum să deblochezi un fișier Excel

Fișier Excel blocat

Cum să

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.Butoane Excel ribbon inactive, 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 Moduleinserează modul nou în Visual Basic for Applications
  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.VBA mesaj fișier deblocat
  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/

 

 

Citește în continuare
S-ar putea să-ți mai placă și...
Apasă pentru a comenta

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate cu *

Mai multe articole din categoria Cum să

Cele mai citite articole

Abonează-te la newsletter


Dacă îți place blogul meu:

Categorii

Sus