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.