Microsoft Excel Sayfa Koruması Kaldırma ve Şifre Kırma Yöntemi

22

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ığı 🙂 )

İşte aşağıda nasıl yapılacağına dair açıklama :

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

Yada şöyle diyim kısaca Alt+F11 e basın exceldeyken, sonra gelen ekrandan yeni diyin kodu yapıştırın ve işlem tamam… excel şifresiz karşınızda…

Resimli olarak anlatımı da ekledim isterseniz buradan da bakabilirsiniz….

 

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


		
				
					
				
			
Share.

22 yorum

  1. koruma sekmesinde hucrelere tasıma. Varsayılan olarak, kullanıcılar kilidi acılmıs hucreleri secebilir ve bunların korumalı bir calısma sayfasının kilitlenmemis hucreleri arasında hareket etmek icin SEKME tusuna basabilirsiniz.

Yorum Yazın

Powered by themekiller.com