Selasa, 11 Februari 2014

Cara buka file excel yang diprotect

Dear Sobat

Akhirnya kesampean juga bisa buka file excel yang diprotect......
Begini sob caranya
pertama buka dulu file yang diprotect kemudian jalanin visual basicnya dengan cara tekan ALT+F11  maka akan muncul seperti pada gambar dibawah ini


Kemudian buka Module lalu paste subpassword breaker lalu save dan keluar visual basic

seperti pada gambar dibawah ini





Pada file yang diprotect jalanin macro lalu dirun subpassword breaker maka akan muncul passwordnya


Download subpassword breaker disini 

Bisa juga dengan menggunakan sub internal password berikut scripnya

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

thank's

Tidak ada komentar:

Posting Komentar