Excel Şifre Kırma ve Kaldırma ve Koruma Şifresi Sıfırlama %100 Çözüm

İş hayatında en çok karşılaşılan sıkıntılardan biri excel dosyalarına konulan şifreler. Aslında uzun uğraşlar verdiğiniz formüller yazdığınız ve tablolar ile düzenlediğiniz excel dosyanızın içeriğinin kimse tarafından alınmamasını istemeniz gayet normal. Fakat bazen excel dosyanızda ki koruma şifresini unutabilirsiniz. Yada çok önemli bir zamanda size gönderilen excel dosyasındaki verilere ihtiyacınız olabilir. Bu gibi durumlarda bir çok excel şifre kırıcı olsa da maalesef sonuç almak imkansız.

Excel dosyalarında en çok kullanılan şifreleme ise koruma şifresi koymaktır. Bu koruma şifresi bazen formüllerin kopyalanmasını engeller bazen dosya üzerinde değişiklik yapmanızı engelleyebilir. Özellikle excel 2000 versiyonlarında koruma şifresi ve açılış şifresi kırmak son derece zor idi. Fakat aşağıdaki yöntemle sadece excel 2000 ve 2003 te yapılmış Xls dosyaları ile Excel 2007 – 2010-2013 ve 2016 sürümlerinde hazırlanmış Xlsx dosyalarınında şifrelerini kolaylıkla çözebilirsiniz.

Gelelim Excel Koruma Şifresi Konmuş dosyanın şifresini nasıl kaldırıp sıfırlayacağımıza. Aslında aşağıda resimlerle de net bir şekilde anlattık. Yinede takıldığınız konu olursa yorum bölümünden yazabilirsiniz.

1 ) Öncelikle excel koruma şifresi olan excel dosyamızı açıyoruz.

2 ) Önce Alt+F11 tuşlarına basarak yada Geliştirici sekmesinden Visual Basic bölümüne tıklayarak Excel dosyalarında kod yazabileceğimiz ekranı açıyoruz. Geliştirici sekmesini açmak için Dosya > Seçenekler > Şeridi Özelleştir > Geliştirici bölümünün yanındaki tüm check işaretlerini işaretlemeliyiz.

3 ) Visual Basic kod ekranında Üst menülerden İnsert içerisinden Module bölümüne tıklıyoruz.

4 ) En önemli yer burası açılan modüle kısmına aşağıdaki kodları yapıştırmanız gerekiyor.

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

5 ) Ekranda bulunan yeşil ok (Çalıştır) tuşuna basıyoruz. Ekrana bir şifre yazacak aslında bu şifre çokta önemli değil. Zaten şuan dosya koruması kalkmış durumda. En sağlıklısı dosyayı yeniden farklı kaydederek masaüstünüze korumasız bir kopyasını almak. Bundan sonra tüm formüller kodlar yazılar ve korunan alanların hepsine erişebilirsiniz.

Yukarıdaki işlem kesinlikle %100 çalışmaktadır. Excel tüm sürümlerinde denenmiştir. Fakat yinede takıldığınız konu olursa yorum kısmından yazabilirsiniz.