Cara Membuka Password Microsoft Excel

April 24, 2015

        Selamat pagi teman teman, kali ini saya akan membagikan kepada teman-teman sebuah trick hacker yang agak licik, saya mendpatkan trik ini, sebenarnya dari berbagai sumber, jadi bukan saya bukan saya yang menemukan, namun kali ini saya akan meringkasnya menjadi sebuah tutorial yang mudah di mengerti agar teman-teman semua jadi tahu. terkadang teman teman menemukan file microsoft exel yang di pasword ketika kita akan mengeditnya kan. lah ini lah cara untuk membuka file tersebut.
     Sekilas tampilan ini sama dengan di vb, ya karna program language yang di gunakan adalah vb.
oke langsung saja teman teman kita praktekan.
first time, buka file exel yang di paswoord. kemudian ketikkan pada keyboard alt+f11 setelah itu akan muncul tampilan seperti di bawah ini

setelah itu kalian klik dua kali pada sheet1 Atau sheet yang di paswoord kemudian masukkan code di bawah ini

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

jadi nantinya akan di menjadi seperti ini


kalau sudah kalian tiggal close, dan cek apakah password sudah bisa di buka belum. cara ini, saya coba hanya work di ofice 2003-2010. bagaimana ? mudah bukan, tapi saya berharap kepada teman teman agar tidak menggunakan cara ini sembarangan, dengan mengganti file orang lain atau merusaknya, bijaksanalah menggunakan ilmu. terimakasih :D

You Might Also Like

0 komentar

Subscribe