Cara Mudah Membuka Password Sheet Excel Yang Lupa

Bagi teman-teman yang biasa menggunakan Microsoft Excel, tentu sudah tidak asing lagi dengan protect sheet. Jika ingin membuka dan tahu passwordnya, maka tidak ada masalah, tapi jika lupa passwordnya maka menjadi sebuah masalah baru. Bagi teman-teman yang mempunyai masalah tersebut, dapat mengikuti langkah-langkah yang diadopsi dari uwgb.edu sebagai berikut :
1. Tekan ALT +  F11 atau klik View Code di Developers Tabs
2. Setelah itu akan muncul Microsoft Visual Basic for Applications
3. Klik Tools - Macros

4. Isikan Nama sembarang di Macro Name, Kemudian klik Create



5. Copykan code berikut :

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    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



6. Tekan Run atau Tekan F5