instagram takipçi satın al, instagram takipçi kasma, instagram takipçi hilesi şifresiz, instagram takipçi arttırma


  1. Ana Sayfa
  2. Sponsor

Şifreli Excel Dosyasını Kırmak İçin Yapılması Gerekenler

Şifreli Excel Dosyasını Kırmak İçin Yapılması Gerekenler
0

Ş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/

 

 

İlginizi Çekebilir

Yorum Yap