22 Februari 2015

Membongkar sheet Excel yang diproteksi

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!

3 komentar:

  1. aih, pak sofyan canggihhh,, bs bongkar excel yg dprotect,,
    mantaaaapp...
    lanjutkan pak !!!

    BalasHapus
  2. Kalau komen, jangan pake Anonim dong! Tampakkan siapa dikau!

    BalasHapus

Apapun dan bagaimanapun komentar yang anda tulis, merupakan bentuk apresiasi terhadap apa yang saya tulis. dan saya sangat menghargainya