Cara Membobol Password Sheet Excel

Cara Membobol Password Sheet Excel.
Terkadang ketika membuat sebuah document excel yang menggunakan banyak rumus kita ingin agar rumus tidak diketahui orang lain dengan cara menyembunyikan rumus dengan  memprotek Sheet dengan password, baik itu yang sederhana maupun yang super canggih.

Namun itu semua tentunya tidak akan berguna dan justru menjadi malapetaka manakala kita lupa password yang kita buat.

Lagi pula cukup mudah untuk membobol password excel yang kita buat karena banyak sekali posting tentang cara membobol password excel

Cara membobol dan Menghapus password Sheet Microsof Excel

Ada berbagai cara yang dapat dipergunakan untuk membuka proteksi sheet Excel, yaitu dengna mempergunakan software, dengan script Visual Basic Editor (VBA),

"Baca juga Cara Menghitung Umur di Excel"

Pada posting kali ini saya akan sedikit sering cara membobol password Sheet Excel mempergunakan script Visual Basic Editor (VBA). untuk membobol menggunakan aplikasi silahkan baca Cara Menghapus Password Excel Mengunakan Aplikasi


Untuk membobol password sheet excel menggunakan AddIn silahkan baca cara membobol password Sheet Excel menggunakan Addin

1. Pertama klik menu Developer pilih Visual Basik pada Grup Code atau Tekan ALT+F11, untuk melihat kode worksheet,
   
   
2. Setelah Microsoft Visual Basic For Aplications terbuka  klik dua kali sheet yang di protect. Contoh gambar “ sheet6 (Rekap)” yang di protect
   
   
3. Kemudian pada Tool Klik Insert/Module, maka akan Muncul File jendela Module1
   
   
   
   
   
   
4. Copykan scriptnya jangan ada yang diganti ke Module 1
   
   
   
   
   
   
5. Berikut Scriptnya ::
   
   Sub PasswordBreaker()
   ‘Breaks worksheet password protection.
   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 “One usable password is ” & 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
   
   
6. Lalu jalankan dengan menekan Run atau tekan F5:
   
   
7. Tunggu beberapa saat setelah selesai maka password sheet sudah dibuka
   
   
   

Silahkan dicoba semoga berhasil

Sukses selalu