Cara Gampang Reset Password Sheet Excel Yang Terproteksi

Kalian pernah memproteksi Sheet pada dokumen Excel kalian? Bagaimana kalau kalian lupa dengan passwordnya?

Atau kalian pernah menerima file excel yang bagus, dan kalian ingin mengotak-atik atau memodifikasi namun Sheetnya terproteksi atau ter-password? Apa yang kalian rasakan? Pengen nangis? heheh,, jangan,, tenang saja, ini saya kasih tau caranya...

1. Buka file excel yang Sheet-nya terproteksi.
2. Buka macro nya, caranya tekan ALT + F11.
3. Buat modul
4. Masukkan code berikut ini ..

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

Download file sript dalam text di sini

5. Klik Save.
6. Kembali ke Sheet,
7. Klik Developer - macro - run macro
8. Maka otomatis sheet akan terbuka.
9. Kurang jelas? Silahkan perhatikan video berikut ...

Bagikan Artikel ini