Microsoft Excel, kullanıcıların hassas verileri korumak için parola koruması ekleyebileceği güçlü bir elektronik tablo uygulamasıdır. Ancak, unutulan şifreler veya başka nedenlerle Excel dosyalarınıza erişim sağlama ihtiyacınız varsa, aşağıdaki adımları takip ederek Excel şifresini kırmayı deneyebilirsiniz. Ancak, bu yöntemlerin yasal sınırlarını aşmamak önemlidir. Yani, dosyanın sahibi ya da izin verilen bir kişiyseniz ve şifreyi unuttuysanız kullanmalısınız. Aksi takdirde başka bir kişinin dosyalarına izinsiz erişim sağlamak yasa dışıdır.
1. ZIP Arşiv Yöntemi:
Bu yöntem, Excel dosyasının içeriğine ZIP arşivi kullanarak erişmeye dayanır.
Excel dosyanızın bir yedeğini alın.
Dosyanın bir kopyasını ZIP olarak kaydedin (örneğin, dosya.xlsx’yi dosya.zip olarak değiştirin).
ZIP dosyasını açın ve “xl” klasörünü bulun.
“workbook.xml” dosyasını bir metin düzenleyici ile açın.
etiketini bulun ve bu etiketi silin.
ZIP dosyasını kaydedin ve adını dosya.xlsx olarak değiştirin.
Dosyayı Excel ile açın, şifre olmadan erişim sağlamalısınız.
2. VBA (Visual Basic for Applications) Yöntemi:
Bu yöntem, VBA makrolarını kullanarak şifreyi kırma prensibine dayanır.
Excel dosyanızı açın ve ALT + F11 tuşlarına basarak VBA editörünü açın.
Sol taraftaki “VBAProject” bölümünden dosyanızı seçin.
“Insert” menüsünden “Module” seçeneğini seçin.
Açılan pencerede aşağıdaki makro kodunu yapıştırın:
vba
Copy code
Sub Kır()
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 “Şifre kırıldı: ” & 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 SubF5 tuşuna basarak makroyu çalıştırın.
Makro çalıştığında, şifre kırılacak ve size bir mesaj gösterilecektir.
Unutmayın ki bu yöntemlerin her ikisi de belirli durumlar için işe yarayabilir, ancak her Excel dosyasında garanti sonuçlar elde edilemez. Şifre kırma işlemleri, dosyanın karmaşıklığına ve şifreleme yöntemine bağlı olarak değişiklik gösterebilir.
