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:
Untuk memperbesar Gambar, klik 1 x Pada Gambar - Kembali Ke Normal Tekan Esc
3. Kemudian pada Tool Klik Insert/Module, maka akan Muncul File Module1
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....
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:
Untuk memperbesar Gambar, klik 1 x Pada Gambar - Kembali Ke Normal Tekan Esc
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.....
Untuk memperbesar Gambar, klik 1 x Pada Gambar - Kembali Ke Normal Tekan Esc
Untuk memperbesar Gambar, klik 1 x Pada Gambar - Kembali Ke Normal Tekan Esc
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
Untuk memperbesar Gambar, klik 1 x Pada Gambar - Kembali Ke Normal Tekan Esc
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
Untuk memperbesar Gambar, klik 1 x Pada Gambar - Kembali Ke Normal Tekan Esc
Gambar. Hasil Akhir
