![USM SEMARANG [FORUM DISKUSI]](https://i.servimg.com/u/f62/19/88/89/79/logo_u14.png){kind=logo}
Indeks
Beberapa waktu lalu saya sempat terbentur dengan kerjaan yang mengharuskan penggunaan VBA di Excel, namun pada saat itu worksheet yang akan ditempatkan macro sedang terkunci dan sang admin yang tahu password nya sedang cuti keluar negeri dan tidak bisa dihubungi... berhubung tugas ini urgent dan butuh penyelesaian secepatnya, maka saya iseng mencari password breaker untuk worksheet excel dan tak beberapa lama dengan bantuan om gugel, saya temukan salah satu macro yang sangat tepat dan bisa diimplementasikan di semua excel tanpa software atau kemampuan teknis apapun :adek:
Mengingat kenginan untuk berbagi yang lumayan besar, maka berikut saya sajikan macro tersebut... Cara nya yaitu dengan mengakses VBA di excel dengan menekan ALT + F11 lalu meng-Insert sebuah module baru (shortcut ALT + I + M) dan mem-paste kan kode 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
Selanjutnya tinggal menekan tombol Run / F5 dan taraaa.... seluruh worksheet yang terkunci sudah terbuka dengan lebar dan siap untuk diedit
Sekian dan terima kasih... Igniel sign out
Mengingat kenginan untuk berbagi yang lumayan besar, maka berikut saya sajikan macro tersebut... Cara nya yaitu dengan mengakses VBA di excel dengan menekan ALT + F11 lalu meng-Insert sebuah module baru (shortcut ALT + I + M) dan mem-paste kan kode 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
Selanjutnya tinggal menekan tombol Run / F5 dan taraaa.... seluruh worksheet yang terkunci sudah terbuka dengan lebar dan siap untuk diedit
Sekian dan terima kasih... Igniel sign out
