Tuesday, July 26, 2016

Cara Membobol/Membuka Password EXCEL SHEET


Tutorial ini saya buat berdasarkan pengalaman pribadi saya yang menemukan file Excel yang Sheetnya Terkunci, sehingga file tersebut tidak dapat di edit maupun dirubah Nilainya.... ini sungguh membuat saya sangat kesal dan coba cari tau bagaiman membuka/membobol passsword EXCEL SHEET nya.... kemudian saya coba googling dengan berharap dapat Membuka atau Membobol Password tersebut dan akhirnya saya menemukan caranya.... sehingga Melalui Blog Ini saya Akan Berbagi bagaimana Cara Membobol atau Membuka File Yang Sheetnya diberikan password. Begilah caranya....

1. Bagaimana Sebenarnya File Yang Diberikan Password??? caranya adalah : pertama buka file excelnya, kemudian pada menu bar Excel cari  Review. jika ada tertulis Unprotect Sheet maka sudah pasti file tersebut dalam keadaan terkunci dan diberikan password dan sebaliknya Jika Tertulis Protect Sheet maka file tersebut terkunci atau Free Password. Berkut ini:


Contoh. Screen dari File yang Diberikan Password:

2.  untuk membobol pass tersebut maka kita akan mengunakan script sederhana yang ampuh untuk menghapus pass tersebut. Gunakan Tombol Kombinasi Short Cut Untuk membuka Microsoft Visual Basic dengan menekan Tombol ALT + F11, maka akan muncul jendela baru untuk Microsoft Visual Basic.....

Gambar. Microsoft Visual Basic



3. Kemudian pada Tool Klik Insert/Module, maka akan Muncul File Module1 



4. Double Clik pada Module 1 maka akan muncul jendela baru untuk memasukkan script.....



5. Copy Pastekan Script Berikut Ini Ke Excel anda: Mulai Dari Sub Internal s/d end sub

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

Gambar. Hasil Akhir
6. Setelah itu selesai anda lakukan maka langkah selanjutnya adalah Runing Scirpt tersebut. caranya alihkan Kursor pada Sheet1 (atau sheet yang terkunci) kemudian tekan tombol F5 maka akan muncul jendela RUN. kemudian Klik saja RUN. Tunggu beberapa saat Sampai proses selesai dan setelah selesai maka File Excel yang ada Password Akan Hilang.... hahahahahaa.....


Sekian...
Ditulis oleh eMHa On 12:05 AM No comments

0 comments:

Post a Comment

  • RSS
  • Delicious
  • Digg
  • Facebook
  • Twitter
  • Linkedin
  • Youtube