Cara Membuka File Excel Yang Lupa Passwordnya Tanpa Software!!!

Nouugle - Cara Membuka File Excel Yang Lupa Passwordnya Tanpa Software. Hallo sahabat nougle!!!. , kali ini mimin akan membagikan sebuah tips buat agan agan netizen yang setia delalu dengan Nougle. Nah kemarin mimin dapet tugas ini dari guru buat ngisiin data yang di dapet dari intansi pemerintah , tapi ehh pas mimin mau edit datanya ternyata file Excel nya di lindungi dengan pasword. Pas mimin tanya ke guru apa passwordnya , malahan guru nya bilang tidak tahu :(.

Namun mimin tidak mudah menyerah dan akhirnya mimin ketemu caranya yang sekarang akan mimin bagiin ke agan - agan. Cara nya yaitu :

Pertama : Buka file Excel agan setelah itu tekan tombol Alt + F11 makan agan - agan akan di bawa ke visual basic for aplication, setelah masuk pilih menu insert dan pilih pada pilihan module. (seperti gambar di bawah ini)

Gambar Module  1.1 Nougle .dari Google image

Kedua : Copy Code di Bawah ini :

=========================================================================

Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com
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

========================================================================

jika sudah di copy maka simpan lah code yang agan agan copy.

 (seperti gambar di bawah ini.)

Gambar code  1.2 Nougle .dari Google image

Ketiga : Pilih menu Tools dan pilihlah pada pilihan macros.

(seperti gambar di bawah ini.)

Gambar Macros  1.3 Nougle .dari Google image

Keempat : Setelah masuk ke jendela macros mka pilih menu "RUN" maka akan muncul popup (Pemberitahuan) dan pilih " OK ". (seperti gambar di bawah ini.)

Gambar Run  1.4 Nougle .dari Google image

Maka file Excel yang terkunci sudah terbuka.

Tweet

Postingan terkait:

— Wednesday, April 27, 2016 — Add Comment — #TRICK