Buka file excel yang berpassword tanpa software

Pernah mendapatkan file excel yang berpassword? atau file excel yang tidak dapat diedit cell nya. ada cara mudah untuk membuka file password excel tersebut tanpa menggunakan tool tambahan. di sini kita menggunakan script macro yang ada pada excel itu sendiri.
seperti yang terlihat pada gambar dibawah ini:

banyak alasan orang untuk memberikan password pada file excel tersebut, bisa jadi untuk keamanan formula yang sudah di buatnya, atau untuk menghindari kesalahan inputan pada setiap cell nya. Tapi saat melakukan import data ke database akan menjadi sebuah kendala yang mana file tidak dapat diimport karena status read only. salah satu caranya adalah dengan melepaskan proteksi password pada file excel tersebut.

berikut ini akan saya jelaskan tahapan untuk membuka password excel tersebut.

1. Buka dulu file excel yang masih terpassword terlebih dahulu.

2. Tekan tombol "Alt + F11", maka akan muncul jendela microsoft visual basic for aplication.

3. pada menu diatasnya pilih Insert kemudian Modul

4. jika sudah muncul dialog seperti gambar di atas, silahkan copy script berikut kedalam kolom dialog nya.

Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com
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)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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