Bagi saya, juga sebagian orang lainnya bermain-main dengan Visual Basic adalah hal yang sangat mengasyikan. Karenanya liburan kali ini, saya putuskan untuk melakukannya.
Dalam keseharian saat saya bekerja, seringkali saya berhadapan dengan masalah, yakni beberapa file dalam format Excel yang oleh sipembuatnya diprotek dengan Password. Nah, itulah yang akan saya coba membongkar Passwordnya. dan inilah hasilnya :
Pertama tentu saja, saya buka workbook dengan sheet yang telah diproteksi
Langkah berikutnya, tekan Alt+F11 untuk masuk kejendela Visual basic editor (VBE). Klik Insert lalu klik Module, dan buatlah sebuah Modul, kemudian masukan kode dibawah ini kedalam modul
Sub BukaSheet()
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 "Password Crack Yang Sudah Termodifikasi Adalah : " & 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
Tutup jendela Visual basic editor (VBE)
Buka tab Tools > Macros. Akan terlihat kotak dialog dengan list "BukaSheet" > klik Run.
JIka berhasil maka akan ada kotak dialog yang berisi password sheet. Beres!
Langganan:
Posting Komentar (Atom)
aih, pak sofyan canggihhh,, bs bongkar excel yg dprotect,,
BalasHapusmantaaaapp...
lanjutkan pak !!!
Kalau komen, jangan pake Anonim dong! Tampakkan siapa dikau!
BalasHapusMuantab
BalasHapus