Excel Dosyasında Hücre Korumayı Kaldırma / Şifre Kırma

Merhaba arkadaşlar. Bugün size benim de sık sık ihtiyaç duyduğum bir konuyu anlatacağım. İnternetten excel dosyası indirip hücre koruması olduğu için üzerinde işlem yapamadığımız çok oluyor. Bugün bu konuyu biraz araştırdım ve korumalı excel dosyasının şifresinin nasıl kaldırılacağını öğrendim. Hem tekrar ihtiyaç duyduğumda buradan bakıp yapmak için hem de sizlerin de faydalanması için buradan paylaşıyorum. Belirtmekte fayda var bu yöntemi sadece Office 2010 sürümünde denedim. Diğerlerinde deneme şansım olmadı. Diğer sürümlerde işe yarar mı bilmiyorum.

Öncelikle ben şifrelenmiş şu nöbetmatik dosyasını kullandım. Dosyayı indirmek isterseniz buraya tıklayın.

Dosyayı açtığınızda ekrana gelen sayfadaki mavi kısımda değişiklik yapamadığınızı görmüşsünüzdür. Şimdi bunun gibi hücre korumalarından nasıl kurtulacağınızı anlatacağım.

Dosya açık haldeyken Alt+F11 tuş kombinasyonuna basıyoruz. Karşımıza “Microsoft Visual Basic for Aplications” diye bir menü açılacak. Soldaki sütunlardan “BuÇalışmaKitabı” yazan yere çift tıklıyoruz. Boş bir pencere açılacak. O pencereye aşağıya vereceğim kodu kopyalayıp yapıştırıyoruz.

———————————————————————————————–
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

———————————————————————————————–
Kodu yazdıktan sonra aşağıdaki resimde kırmızı ile işaretli olan “Run Macro” tuşuna tıklıyoruz. Açılan küçük ekranda da “Run” tuşuna tıklıyoruz ve ardından mutlu son.

Karşımıza çıkan pencerede dosyanın şifresi yazmakta.

O şifreyi kaydettikten sonra tamama basıp Visual Basic ekranını kapatıyoruz. Dosyamızın şifresini öğrendik. Şimdi dosyadaki şifreli kısımları kaldırmak için dosyamızın açılış ekranına geliyoruz. Dilerseniz dosyayı kapatıp baştan da açabilirsiniz.

Açılış ekranına geldiğimiz dosyanın üst menüsünden sırasıyla “Gözden Geçir”e ardından da “Sayfa Korumasını Kaldır”a tıklıyoruz. Açılan mini ekrana şifreyi yazıp tamama tıklıyoruz. Diğer sayfalarda da ihtiyaç duyulursa yine üst menüden sırasıyla “Gözden Geçir”e ardından da “Sayfa Korumasını Kaldır”a tıklayıp şifreyi yazarak şifreyi kaldırabilirsiniz.

Umarım işinize yarar arkadaşlar.

TAGS

Bir Cevap Yazın

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