Atu Loke password excel
Pusing…. Haluha password excel??
Ka foti file excel husi internet mais labele edit?
Pernah download aplikasi penjebol password excel?
Kelemahan aplikasi password excel, biasanya ita atu hetan
password ida deit ne han tempu oras ba oraskadaves to loron.
Mais ho cara ida ne it abele dehan kata bele sura minitu deit bele loke ona (ida ne mos
se nia langkah los hotu ona bos??)
Mais ninia kelemahan mak labele hare nia password , mais so
bele apaga deit.
Etapa pure tapa mak ne’e..!
1 1. Loke file
excel nebe’e nia cell hetan protect.
2. Tahan tombol Alt+F11, maka janela Microsoft Visual Basic For Application mosu .
3. Klik insert depois Hili pilih Modul
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
5 5. Paste ona klik save
6. Nafatin
iha janela Microsoft Visual Basic, klik menu Tools depois hili Macros
8 8. Mosul popup no klik OK
9. cell nebe xafe it abele loke
ona
10. obrigado
uja didika labele uja ban auk emania dadus