Remove and Recovery Protected Worksheet with Password on Ms. Excel

Menghilangkan dan mereset worksheet yang terproteksi oleh password pada file Excel [with VBA code]
Recover lost worksheet protection password in Excel with VBA code

1. Silakan Anda buka file Office Excel yang telah diproteksi tersebut.
#Open your worksheet which has been protected before.

2. Tekan dan tahan Alt+F11 pada keyboard. Fungsi tombol kombinasi Alt+F11 ini adalah untuk mengaktifkan layar kerja Microsoft Visual Basic.
#Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window .

3. Anda klik pada menu Insert => Module, kemudian Anda copy kode dibawah ini dan paste -kan pada layar kerja Module yang tadi telah Anda aktifkan.
#Click Insert => Module, and paste the following code in the Module Window

________________________________________________________________________
A. Menghilangkan Proteksi Password
Delete/Remove Password Protection
________________________________________________________________________


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


________________________________________________________________________
B. Me- reset password ke mode standar
Reset Password Protection as Default
________________________________________________________________________


Sub PasswordRecovery()
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)

Exit Sub
End If

Next : Next : Next : Next : Next : Next
Next : Next : Next : Next : Next : Next

End Sub


________________________________________________________________________


4. Kemudian Anda klik pilih lagi tombol Run Macro atau lebih cepat lagi Anda bisa menekan tombol F5 pada keyboard.
Jika dihadapkan pada kotak dialog Macros dengan perintah InternalPasswords. Maka cukup klik "Run". Tunggu beberapa saat karena kode yang telah kita benamkan pada Module tadi sedang bekerja untuk menghilangkan proteksi file Office Excel. Lamanya proses Run Macro ini tergantung ukuran file Office Excel yang sedang Anda Unprotect.
#Then click F5 key to run this code, and a prompt box will pop out, click OK to close it, and your passwords of the protected worksheet will be canceled at once.

Jika proses Run Macro sudah selesai dengan sempurna, silakan Anda tutup (close) layar kerja Microsoft Visual Basic dan kembali perhatian Anda pada layar kerja Sheet yang semula diproteksi. Anda lihat menu Review, jika sudah berubah menjadi Protect Sheet maka proses membuka proteksi password Office Excel ini telah sukses.


Notes:
1. With that code first & second, choose was good for you, but you just only recover one worksheet protection password at a time, if there are multiple protected worksheets, you need to apply this code one by one.
Code 1 to Removed / Delete password & the code 2 look cool, you get the default password as one usable password, i thought you like code number 2 coz you have fun with it.