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.
- Buka file yang di-password
- Tekan tombol kombinasi “ALT+F11″
- Klik Insert > module
- 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.