Excel’de Unutulan Sayfa Koruma Şifresini Kaldırma

images

Excel’de  Unutulan Sayfa Koruma Şifresini Kaldırma

Sizler için faydalı olabileceğini düşündüğüm bir konuyu sizinle paylaşmak istedim. Yaralı Bilgiler adı altında paylaşacağımız ilk konumuz  Microsoft Office Excel belgelerinde unutulan  sayfa koruma şifresinin kaldırılması !

Bu konuya ilişkin bir çok program olmasına karşın, kullanıcı dostu bir kaç işlem ile çıkış yolu yaratabilirsiniz.  Excel sayfasında  Alt+F11 ile veya Dosya -> Seçenekler -> Şeridi Özelleştir -> Sağ pencereden  “Geliştirici” sekmesinin aktif edilmesi ile işleme başlayabiliriz.

Geliştirici sekmesinden Visual Basic’ e tıklayarak kod sayfasına ulaşıyor, açılan pencereden menü Insert->Module sekmesine tıklıyoruz. Aşağıda yer alan  kodları açılan pencereye yapıştırıp  ► çalıştır butonuna tıklıyoruz. Çalıştır komutu sonrasında Excel sayfasına dönecek , küçük bir pencere açılacak ve içinde şifre yazan bir uyarı çıkacaktır.  Açılan pencerede tamam butonuna tıkladığınızda o anda açık olan Excel sayfasının koruması kırılmış olacaktır. (Tamam butonu sonrası tekrar modüle sayfasına yönlendirilecek olup, X işareti ile sayfayı kapatarak işleme devam edebilirsiniz.) Birden fazla sayfanız varsa açılan pencerede çıkan şifreyle diğer sayfalarında korumasını kaldırarak çalışmaya devam edebilirsiniz. Gelen şifre orijinal şifreniz olmasa da işe yarar olduğunu göreceksiniz.

Aşağıdaki alanı kopyala –  yapıştır yapınız !

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

 

No votes yet.
Please wait...

1 thought on “Excel’de Unutulan Sayfa Koruma Şifresini Kaldırma

  1. Ellerinize sağlık,Harika 1 çalışma olmuş. Allah razı olsun aynı zamanda.basarilarinizin devam ermesi dilegiyle

    No votes yet.
    Please wait...

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir