Daftar Isi [Tampil]



Seorang temen kerja datang padaku dengan membawa flashdisk yang terproteksi oleh password pemilik file. File tersebut berbentuk Excel. Tertantang dengan hal yang baru, maka saya mencoba mengakalinya. Alhamdulillah berhasil.
Berikut tutorial yang saya buat dengan bahasa yang sederhana dengan harapan orang yang awan bahasa pemprograman pun bisa melakukannya. Selamat mempraktikkan.
  1. Buka file yang di-password
  2. Tekan tombol kombinasi “ALT+F11″
  3.  Klik Insert > module
  4. copy paste-kan code berikut ini:
Sub InternalPasswords()

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

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)

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 ActiveWorkbook.ProtectStructure = False Then

If ActiveWorkbook.ProtectWindows = False Then

If ActiveSheet.ProtectContents = False Then

Exit Sub

End If

End If

End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

5) Klik pada sheet atau worbook yang akan kita buka password-nya
6) Klik Tool > Macro > Show Macro > Internal Password > Run
7) Tunggu beberapa saat (tergantung besar kecil ukuran File)
8) Jika proses sudah selesai, maka Anda disilakan untuk mencoba mengedit file tersebut.

Semoga sedikit ilmu ini bermanfaat untuk Anda.