Şifre konulmuş ve parola oluşturulmuş excel dosyasındaki şifreyi kırmak için sizlerle üç yöntem paylaşacağım. Bunlardan ilkini internet üzerinden, ikincisini ise winrar ile, üçüncüsünü de excel makro ile yapabilirsiniz.
Excel iş ve eğitim hayatımızda kullandığımız, üzerinde yazdığımız formüller ve oluşturduğumuz tablolar ile hayat kurtaran bir program. Bazen iş hayatımızda içerisine şifre konulmuş dosyalar ile karşılaşabiliyoruz. Veya daha da vahim bir şekilde kendi koyduğumuz şifreyi unutabiliyoruz. Bu şifreyi kaldırmak için sizlerle birkaç yöntem paylaşacağım. Umarız işinize yarar.
İnternet Üzerinden Excel Parola Kaldırma Nasıl Yapılır?
- http://excel.xartifex.com/ bu adrese tıklayın ve internet sitesini açın
- Dosyanızı bu adrese yükleyin ve şifresi kırılmış excel dosyasının bilgisayarınıza indirilmesini bekleyin.
Zip Dosyası Yaparak Şifre Kırma
- Parolasını kaldırmak istediğiniz dosyayı boş klasöre kopyalayın
- .xls olan Dosya uzantısını .zip şeklinde değiştirin. (dosya uzantılarının açık olması gerekir, boş klasör içerisinde görünüm altında dosya uzantılarını seçerek açabilrisiniz)
- .zip formatına çevirdiğiniz dosyayı sağ tıklayıp extract here tuşuna basın
- Çıkan dosya içerisinde xl>worksheets>sheet1.xml dosyasını notepad ile açın
- Notepad içerisindeki sheetProtection yazını bulun ve /> işaretine kadar olan yazıları silin
- Dosyayı kayıt edip xl dosyasının hepsini kopyalayın ve zip formatındaki dosyanın içerisine yapıştırın.
- Zip formatındaki dosyayı xls formatına çevirin
Makro Yardımıyla Excel Şifre Kırma Nasıl Yapılır?
- Şifresi kırılacak excel dosyasını açıp alt+F11 tuşuna basın
- Insert>Module yolunu izleyip aşağıda kodu yapıştırın
- F5 tuşu ile makroyu çalıştırın ve işlemin tamamlanmasını bekleyin
- Uyarı verirse devam diyerek işlemi tamamlayın. Şifrenin kaldırılıp kaldırılmadığını kontrol edin.
Public Sub ExcelPasswordRemover()
Dim Mess As String, Header As String
Dim Credit As String
Dim RepBack As String, AllClear As String
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Application.ScreenUpdating = False
Header = “Excel Password Remover Alert”
Credit = vbNewLine & vbNewLine & “Learn Excel with:- EXCELBEE.COM”
RepBack = vbNewLine & vbNewLine & “Thank you for using Excel Bee Free Stuffs”
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
Mess = vbNewLine & “There were no passwords on sheets, or workbook structure or windows.” & vbNewLine & Credit
MsgBox Mess, vbInformation, Header
Exit Sub
End If
Mess = “After pressing OK button this will take some time.” & _
vbNewLine & “Hit OK and hold back while password(s) are removed from your sheet!” & vbNewLine & vbNewLine & _
Credit
MsgBox Mess, vbInformation, Header
If Not WinTag Then
Mess = “There was no protection to workbook structure ” & _
“or windows.” & vbNewLine & _
“Proceeding to unprotect sheets.” & _
Credit
MsgBox Mess, vbInformation, Header
Else
On Error Resume Next
Do
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
With ActiveWorkbook
.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 .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Mess = “You had a Worksheet Structure or ” & vbNewLine & _
Credit
MsgBox Mess, vbInformation, Header
Exit Do
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
Mess = “Only structure / windows protected with ” & vbNewLine & _
“the password that was just found.” & vbNewLine & _
AllClear & Credit & RepBack
MsgBox Mess, vbInformation, Header
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag Then
Mess = AllClear & Credit & RepBack
MsgBox Mess, vbInformation, Header
Exit Sub
End If
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do
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
.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 Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Mess = “You had a Worksheet password set now removed.” & _
Credit
MsgBox Mess, vbInformation, Header
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
Mess = AllClear & Credit & RepBack
MsgBox Mess, vbInformation, Header
End Sub
Kaynak: https://bilgitara.com/excel-sifre-kirma-ve-koruma-kaldirma-yontemleri/