Parole Excel

Fișierele Excel pot fi protejate la deschidere sau la modificare, cu sau fără parolă. Cele protejate la modificare nu mai pot fi modificate sau nu se pot copia părți din acele fișiere. Detalii pe saitul microsoft.

Dacă ați uitat parola, există mai multe modalități de a șterge sau sparge parola.

Una dintre metode este folosind macrocomanda de mai jos (se copie în VBA, apoi se rulează):

Sub PasswordBreaker()

' Breaks worksheet password protection.

' Original (?)by Bob McCormick on NG:

' microsoft.public.excel.misc on 22 May 2001.

' Adapted for workbook passwords Norman Harker 19 Nov 2002

' Breaks workbook and worksheet password protection.

' Works for either workbook or worksheet passwords or both

' if the passwords are the same.

' If passwords are different then

' systematically "comment out" the nested if functions

Dim intPress As Integer

intPress = MsgBox("Preparing to disable your password...", _

vbQuestion + vbOKCancel, "Password Breaker")

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 "OK, your password has been disabled. Try not to forget it again...", 0, "Password Breaker"

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

Fișier protejat cu o macrocomandă

Dacă fișierul protejat are extensia xlsm (deci conține și macrocomenzi), este posibil ca parola să se afle într-o macrocomandă. Se poate verifica astfel:

• cu Alt+F11 se deschide editorul VBA

• în folderul Modules, se caută în fiecare modul cuvântul protect. Ar putea să se găsească în diferite forme, de exemplu, ActiveSheet.Unprotect = "parola", unde caracterele scrise între ghilimele reprezintă parola cu care este protejat fișierul.

Registre cu fișier(e) protejat(e)

Tot pentru fișiere cu extensia xlsx:

• pentru orice eventualitate, se face o copie a registrului de lucru

• se redenumește extensia, din xlsx în zip

• se extrag fișierele într-un folder separat și se deschide acel folder

• în subfolderul xl, sub-subfolderul worksheets conține unul sau mai multe fișiere cu extensia xml 

• se deschid, pe rând, toate fișierele xml cu un editor de text (de exemplu, Notepad)

• în fiecare fișier xml protejat 

  • se caută (Ctrl+F) protect - se va găsi <sheetProtection algorithmName .........> între parantezele unghiulare se află parola criptată

  • se șterge tot conținutul dintre parantezele unghiulare (inclusiv acele paranteze < ... >), se salvează și se închide fișierul xml

• apoi se rearhivează conținutul folderului separat în format zip și se modifică extensia din zip în xlsx.

Truc: conținutul dintre parantezele unghiulare <sheetProtection algorithmName .........> din fișierele xml poate fi copiat în altă parte. După ce se fac modificări în fișierele deprotejate, se poate readuce parola criptată în fișierele xml, folosind aceeași metodă (dezarhivare, midificare fișiere xml și rearhivare). Astfel, fără a cunoaște parola, se pot face modificări în fișier.