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/