1. Utilizați scriptul Unprotect VBA

1. Lansați foaia Excel și apăsați Alt+ F11.
2. Faceți click pe meniul Inserare și selectați Modul
   
3. Introdu scriptul de mai jos, înlocuind your_password_here cu parola folosită pentru a cripta foaia:
   Sub RemoveEncryption()
Dim password As String
password = "your_password_here" ' Replace "your_password_here" with the actual passwordOn Error Resume Next
   ActiveSheet.Unprotect password
   On Error GoTo 0

   If ActiveSheet.ProtectContents = False Then
   MsgBox “Encryption removed successfully!”
   Else
   MsgBox “Failed to remove encryption. Please check the password.”
   End If
   End Sub

4. Faceți click pe pictograma Run .
   
5. Ar trebui să primiți un mesaj care spune că Criptarea a fost eliminată cu succes .
   

2. Utilizați opțiunea Protect Workbook

1. Lansați foaia Excel, introduceți parola când vi se solicită și apăsați OK .
   
2. Faceți clic pe Fișier , apoi pe Informații
   
3. Extindeți Protect Workbook și faceți clic pe Criptare cu parolă
   
4. În cele din urmă, ștergeți parola.
   
5. Faceți click pe OK și ar fi trebuit să fi eliminat cu succes criptarea.

Cum elimin criptarea din Excel fără o parolă?

1. Lansați foaia Excel și apăsați Alt+ F11.
2. Faceți clic pe meniul Inserare și selectați Modul
3. Introduceți scriptul de mai jos și apăsați pictograma Run .
   Sub PasswordBreaker()
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. Faceți clic pe OK pentru a afla că ați eliminat cu succes criptarea din foaia Excel.