Cara Menghilangkan Password File Excel

Kali ini saya akan memberikan sebuah tutorial yaitu cara membuka file excel yg diprotect dengan password silakan disimak:

1. Buka Excel kemudian pilih cell yg diproteksi.
2. Tekan ALT+F11 kemudian akan muncul Microsoft Visual Basic For Application.
3. Klik Insert dan pilih Module.
4. Kemudian Copy kode di bawah ini dan paste di jendela Module.

Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.infokita97.blogspot.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.
6. lalu di Microsoft Visual Basic For Application klik tool lalu pilih Macros.
7. Kemudian pilih PasswordBreaker lalu klik Run.
8. Selesai :D.

Tweet