» » » » » Cara Membongkar Password Protected Sheet Excel tanpa software

Cara Membongkar Password Protected Sheet Excel tanpa software

, , ,
Kemarin ketika aku browsing mengenai excel, tak sengaja mendapakan informasi bahwa di excel bisa memainkan game, bukan game yang dibuat dari excel, tetapi game yang dibuat menggunakan media lain dan dimainkan di excel. Aku pikir keren sekali ini! Aku penasaran, bagaimana ya cara membuatnya??? Pertama aku pikir pakai VBA, ternyata enggak!

Di VBA nya kosong tak ada apa-apanya...lho, terus pakai apa ya??? (penarang tingkat tinggi............).

Aku amati sheetnya di protect jadi tak bisa tahu pakai apa nih.......jadi harus dibongkar dulu nih passwordnya.

Aku cari software password recovery, dari office sampai vba,....tak ada yang bisa menemukan passwordnya! memang tak ada aplikasi yang khusus untuk membuka password sheet. Bingung jadinya! Kalau sudah gini, tanya sama abang google...........................

Ketemu!

Ternyata ada cara yang mujarab untuk menghapus password sheet, tapi ini berfungsi hanya pada excel 2010 kebawah, kalau excel 2013 tak berfungsi.

Caranya begini:
1. Anda buka file excel tersebut
2. Aktifkan Ribbon Developer, caranya: aktiftak di excel option


3. Pilih Tab developer dan pilih Visual Basic menu
4. Double click pada sheet yang di protect
5. Copy paste 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 Tombo F5
7. Tunggu sebentar hingga muncul pesan One Usable Passwor....
8. Selamat! password sudah dihapus!

Luar biasa!
Salut kepada sumber https://uknowit.uwgb.edu