Microsoft Excel Sayfa Koruması Kaldırma ve Şifre Kırma Yöntemi (%100 Çalışan Yöntem)

Bazı excel dökümanlarda gerek kaynak kodlarını korumak, gerekse özel verileri gizlemek için şifreleme yapılır.

Bu yöntemi ben dahi defalarca kullanmışımdır, peki bu şifreleri kırıp gizli verilere nasıl ulaşıcaz ? ( pek işime gelmiyor yazmak fakat paylaştıkça bilgi çoğalır mantığı :) )

Hadi gelin sınırları kaldıralım :)

excel sayfasında araçlar , Makro,Visual Basic Düzenleyicisine gir , insert menüsünden, module seçeneği seç oraya aşağıdaki kodları yaz ve makroyu çalıştır(play işaretine bas) o sana sayfanın korumasını kaldıracak

EN KISA YOL İSE : Excel açıkken Alt+F11 e basın  sonra gelen ekrandan Yeni diyin ve kodu yapıştırın ve işlem tamam... excel şifresiz olarak karşınızda...

RESİMLİ ANLATIM BU KODDAN SONRADIR.

Sub SifreAc()
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
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