Cara Membuka Excel yang di Password Protect

Cara Membuka Excel yang di Password Protect - Begitu susahnya ketika harus mengedit file excel yang ternyata diproteksi oleh pembuatnya. Nah tutorial kali ini membahas cara membuka password Excel tanpa software. Cara ini terbukti ampuh untuk membuka sheet yang dikunci.

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. Silahkan anda tunggu beberapa saat, maka sheet yang terkunci akan dapat anda edit. Selamat mencoba