Excel'de sayfa koruma şifresini kaldırma

Allahumme Salli Ala Muhammedin ve Ala Ali Muhammed

Aramak İstediğiniz Konuyu Alttaki Kutucuğa Yazınız

Reklam

Faydalı olabileceğini düşündüğüm bir konuyu sizinle paylaşmaya karar verdim. Konumuz başlıktan da anlaşıldığı gibi Microsoft Office Excel belgelerinde bulunan sayfa koruması şifresini kaldırmak. Bu işlem için bir çok bulunabilir ama aslında program olmadan da çok kolay bir şekilde yapılabildiğini göreceğiz. 

 

Fazla uzatmadan başlayalım. İlk olarak Excel'de Alt+F11'e basarak yada "Geliştirici" sekmesinden Visual Basic' e tıklayarak Excel için Visual Basic kodları yazabildiğimiz pencereyi açıyoruz. Açılan pencerede menüden Insert->Module tıklıyoruz. Aşağıdaki kodları açılan pencereye yapıştırıp çalıştır butonuna tıklıyoruz. Çalıştırdıktan sonra küçük bir pencere açılacak ve içinde şifre yazıyor olacak. Açılan pencerede tamam butonuna tıkladığınız zaman o anda açık olan Excel sayfasının koruması kalmış olacak. Eğer birden fazla sayfanız varsa açılan pencerede çıkan şifreyle diğer sayfalarında korumasını kaldırabilirsiniz. Her ne kadar bu şifre orijinal şifreyle aynı olmasada işe yaradığını göreceksiniz. Biraz daha anlaşılır olması için ekran görüntülerini inceleyebilirsiniz.

 

 

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

Kaynak ve Anahtar Kelimeler İçin Tıklayın

Kategori Şeysi: 
Kaynak: 
http://www.mehmetakbulut.net/2013/08/excelde-sayfa-koruma-sifresini-kaldrma.html

Yeni yorum ekle

Yorumlar

Reklam