Tuesday, 24 March 2015

Membuka password excel tanpa aplikasi


Pusing…. lupa password excel??
Atau dapat file excel hasil download tapi tidak bisa di edit?
Udah coba download aplikasi penjebol password excel?
Kelemahan aplikasi password excel, biasanya untuk menemukan satu password aza bisa berjam-jam bahkan berhari-hari.
Nah kalau ini hanya dalam hitungan menit  bisa terbuka (itu juga kalau langkahnya betul ya bos??)
Tapi kelemahannya kita tidak bisa liat passwordnya, hanya bisa menghapus saja.
Langkah-langakahnya ini gan..!
  1. Buka file excel yang cellnya diprotect.
  2. Tekan tombol Alt+F11, maka akan muncul jendela Microsoft Visual Basic For Application.
  3. Klik insert kemudian pilih Modul Module
  4. Copy code dibawah ini dan paste di jendela modul yang muncul.
    Sub PasswordBreaker()
    ‘Author unknown but submitted by brettdj of http://www.experts-exchange.com
    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)
    ActiveWorkbook.Sheets(1).Select
    Range(“a1″).FormulaR1C1 = 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
  5. Jika sudah klik save (atau simpan) code
  6. Masih di jendela Microsoft Visual Basic, klik menu Tools kemudian pilih Macros Macros
  7. Setelah itu muncul jendela macros dan klik run run
  8. Muncul popup dan klik OK
  9. Alhamdilillah….. cell yang dikunci sudah dapat dibuka kembali
  10. Semoga bermanfaat….

0 komentar:

Post a Comment

bagus sangat membatu bagi kami
sering-seringlah enteri file yang baru
kami merasa senang dan bangga atas kebedradaan blog ini