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

Çalışanların En Çok Başına Gelen Sıkıntılardan Biridir Excel Koruma Şifresi… Excel Koruma Şifresi Nasıl Kırılır?, Excel Koruma Şifresi Değiştirme, Excel Koruma Şifresi Sıfırlama , Excel Koruma Şifresi Kaldırma Hakkında Tüm Ayrıntılar ve %100 Çözümü Özel Haberimizde…

İş 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.

Yorumlar
  1. Adem yigit dedi ki:

    Ya gerçek ten çok sağolun. Çok önemli bir Excel dosyasinin şifresini unutmuşum. Sayenizde çok basit şekilde çözdüm. Harikasınız

  2. Kenan yigit dedi ki:

    Çok sağolun acayip işime yaradı aylardır uğraşıyordum sayenizde Excel dosyasinin şifresini buldum. Teşekkürler…

  3. ismail dedi ki:

    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)

    syntax error çalıştırınca hata mesajı veriyor

    1. Güçlü dedi ki:

      Bunu dene. Indentationlardan kaynaklı sanırım sorun.
      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

  4. Hikmet polat dedi ki:

    Allah razı olsun sizden . O kadar uğraştım çok önemli bir Excel dosyasının şifresini sifirladim. Hiç kimse neden bunu yazmamıs anlamadım Excel koruma şifresi kırmak çok basit mis.

  5. emre sarısoy dedi ki:

    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)

    syntax error çalıştırınca hata mesajı veriyor

    1. Guclu dedi ki:

      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

  6. gencay atay dedi ki:

    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)

    syntax error çalıştırınca hata mesajı veriyor

  7. Nazif dogan dedi ki:

    Aylardır Excel dosyasinin şifresini kırmaya çalışıyorum. Bu kadar basit olamaz ya:) valla sayenizde 5 dakika surmedi Excel şifresinin sıfırlanması. Teşekkürler

  8. numANdroid dedi ki:

    hata veren yerdeki Tırnak İşaretlerini (“) silip tekrar yazın
    satır sonlarındaki Alt Çizgileri (_) silin ve alt çizgiyle ayrılmış olan satırları yukarı alarak birleştirin. Tek bir satır haline getirin…

  9. Hasan Basri Yılmaz dedi ki:

    Malesef 2016 da çalışmıyor Bu hata alınmaktadır.
    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)

    syntax error çalıştırınca hata mesajı veriyor

  10. ismail dedi ki:

    merhaba, excel in açılış şifresini nasıl bulabilirim… şifreyi unuttum… dosyayı açamıyorum…

  11. Selçuk karaca dedi ki:

    Merhabalar bu yöntem sayfa korumasını kaldırıyor peki çalışma kitabına koyulan parola nasıl kaldırılabilinir

  12. ERSEN ŞENER dedi ki:

    2013 sürümünde hata veriyor yardımcı olabilirimisiniz?

  13. İSMAİL AS dedi ki:

    Hocam Merhaba
    Benim için çok önemli bir dosya var bir türlü açamıyorum. yardımcı olabilirseniz sevinirim.
    Bu ve benzeri bir kaç işlem uyguladım ama olmuyor maalesef
    dosyayı sizlere göndersem açabilir misiniz ?

  14. MUHARREM AYGÜN dedi ki:

    EXCEL ÇALIŞMA SAYFASINDAKİ KORUMAYI KALDIRMA KODUNU YAZDIĞIMDA 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)

    KODUNU KIRMIZI YAZARAK “COMPİLE ERROR: SYNTAX ERROR “YAZIYOR.

  15. Armağan GÜÇLÜ dedi ki:

    Merhabalar Maalesef olmadı benimki 🙁
    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)

    Compile Error
    Syntax Error hatası alıyorum
    Çok acil düzenlemem gereken bir dosya var. Lütfen yardımcı olur musunuz?

    1. Hasan Yu dedi ki:

      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

      Bu şekilde denerseniz çalışır.

  16. Armağan GÜÇLÜ dedi ki:

    Dosyayı size göndersem yardımcı olur musunuz?

  17. Burak dedi ki:

    Allah razı olsun kesinlikle çalışıyor

  18. Kemal Eryaşar dedi ki:

    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)

    compile error : syntax error

    Şeklinde hata veriyor

    2010 Excel kullanıyorum. Daha önce yapmış olduğum sayfa koruma şifresini bulamıyorum.
    Yardımcı olursanız memnun olurum.
    Saygılarımla

  19. Şenol dedi ki:

    hata veren mesaj bölümünü silip çalıştırın. koruma kalkıyor.

  20. bilal yener dedi ki:

    Merhaba;
    Kurtarma programıyla kurtarılan dosya şİfreli dosya olduğundan açılmıyor.Bunu açmanın bir yolu var mı
    Dosyayı açamadığımdan çok sıkıntı çekiyorum
    Teşekkürler…

  21. Macit Rahimi dedi ki:

    Merhaba bende 2003 yılına ait exel dosyası var maalesef şifresini unuttum lütfen yardım edebilirmisiniz
    gerekirse size gönderebilirim. Çok teşekkür ederim

  22. Mustafa dedi ki:

    insert bölümünde module kilitli kod yazma veya değiştirme gibi seçenekleri nasıl açılır