CARA MEMBOBOL PASSWORD PROTECT SHEET DI EXCEL

Berjumpa lagi lewat artikel menarik di dantheup, kali ini kami ingin memberikan informasi pembobolan password yang tidak mungkin ditangkap kpk hehehe.. bercanda. Artikel ini mengenai excel yang telah diprotect sheet, sobat pernah menemukan dokumen excel yang terproteksi sheetnya.. mencari di internet sangat mudah akan tetapi dokument excel yang free pun bisa jadi harus diproteksi sheetnya jadi gak asal gratisan ya. Untuk mengakali dan membobol proteksi sheet sobat bisa melakukan cara berikut ini

contoh kasusnya seperti ini
File excel sederhana yang kami buat contoh ini sudah di protect sheetnya dengan password 1, bisa dilihat di screnshootnya sudah unprotect sheet
Lalu bagaimana cara untuk membobol password sheet tersebut agar bisa kita ganti tambah edit isinya..?

langkahnya seperti berikut ini
buka excel yang akan di bobolpasswordnya
tekan alt+f11 bisa juga fn+alt+f11 untuk run macro (f5)

pilih menu insert> module lalu masukkan kode dibawah 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

lalu pilih sheet yang terproteksi tadi

dalam contoh ini sheet dengan nama sheet 11
klik tombol start> muncul jendela macros lalu klik run

setelah itu balik ke excel tadi
lihat dibagian ini sudah terbuka proteksinya

Bagaimana berhasil tidak, dicoba dulu ya..
Sekian untuk artikel pembobolan di artikel berikut ini, semoga membantu. Dan jangan lupa dishare ke teman-teman lewat link yang ada di website ini.
#dantheup

Artikel Terkait