Skip to content Skip to sidebar Skip to footer

Cara Membuka Password Excel dengan Macro

Ceritanya, baru lalu saya ketemu file excel saya yang dulu sempat ilang tahun 2007 dan pengen membukanya. Tapi sayang, file itu dulu saya password dan sekarang udah lupa passwordnya apa. Solusinya googling dan mencari tau lewat google.

Tapi saya kecewa karena banyak cara yang saya coba termasuk unprotect.xla , password.xla excelpassword remover dll, satu-satu tak ada yang berhasil.

Tapi banyak jalan ke eropa kan hehe. Ya, kali ini saya ingin berbagi tips bagaimana cara membuka Password Excel khususnya yang memproteksi Worksheet atau workbook dengan Macro tanpa software tanpa crack. Cara membuka Password Excel ini benar-benar legal dan mudah meriah (murah – meriah kali ya? Hehe)

Cara membuka Password Excel ini saya dapatkan dari mas Alfi Syahri. Inilah tips yang dia berikan itu dan sudah saya lengkapi dengan gambar agar mudah di fahami para pemula.

Oke,

1. Buka File Excel yang cell, workbook atau workshetnya terproteksi

2. Lalu tekan Alt+F11, maka akan muncul seperti ini:


Spoiler :



Post spoiler


3. Setelah itu, klik arahkan cursor kamu di workshet atau workbook mana yang di password lalu klik kanan view code, sehingga muncul seperti ini :


Spoiler :



Post spoiler


Spoiler :



Post spoiler



5. Sekarang Paste code ini :

Klik Show Untuk Membuka Spoiler

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


Persis seperti ini :


Spoiler :



Post spoiler


6. Yup, selanjutnya, anda jalankan macro pada menu tools -> Macro dan klik Run.

Spoiler :



Post spoiler


7. Selesai. Silakan anda kembali tekan alt+F11 untuk kembali bekerja dengan nyaman pada worksheet telah anda buka proteksinya.

Semoga bermanfaat dan membantu!