membobol password excel protected workbook

dapat ilmu baru pas dapat tugas di kantor, kebetulan saya dapat file excel. Nah, sayangnya file excel tersebut di password workbook / sheet nya. yang punya file nya udah gak karuan di pindah kemana.. soo... ya udah lah.. saya googling.. nah ketemu deh caranya ..

FYI saya menggunakan excel 2007 yah.. jadi ini adalah langkah2 nya ..

1. klik Developer, Klik Record Macro, kemudian Stop Macro

2. Klik Macros, select macro yang tadi kamu record, kemudian klik edit

3. hapus semua script nya dan ganti dengan script di bawah ini :

  

Sub PasswordBreaker()
  'Author unknown but submitted by brettdj of 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

4. Klik Run , lalu close VBA editor nya.. dan BOOOMMMM  !!! woorkbook kamu sekarang udah bisa di akses dan di edit2 deh...

OK.. selamat mencoba ya ... !!!

sumber  http://www.theofficeexperts.com/