0 Cara Membuka Protect Workbook pada Microsoft Office 2013

Hari ini adalah pengumpulan terakhir beasiswa Minamas Simederby. Tapi ane nemu sebuah masalah, pada saat akan memasukkan foto dan ttd,, waht happen??? ternyata koq di proteksi,, lohh yaa,, ya pa terusan..!!!

Tak pusing pusing, akhirnya ane searching2 di mbah google,, nemu blognya Mas Hadi.. dan ane ketemu caranya,,

Pertama emank ragu,, bener gak sih emank bisa??

ane praktekin lagi, dengan harapan penuh agar dapat unproteksi,, ini langkah2 yang ane lakuin pas ane njebol password formulir yang kebetulan excel,,

1. Buka dulu file ms. excel / xls yang terprotect
2. Kemudian tekan tombol alt + F11, maka akan terbuka jendela Microsoft visual basic
3. Pada menu bar klik Insert, kemudian klik Module
4. Copy paste 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

5. Klik icon save, kemudian tutup Microsoft visual basic
6. Kembali ke Ms. Excel, pada menu bar klik View > Macros > View Macros
7. Kemudian klik Run
8. Tunggu beberapa saat dan password akan muncul

9. Setelah mengetahui passwordnya tinggal kita buka protect filenya
10. klik file > Info > Protect Workbook > Permissions
11. Klik Unprotect, Masukkan passwordnya dan klik OK
Untuk file xls yang mempunyai sheet lebih dari satu, tinggal ulangi masukan password pada sheet yang masih unprotect

taaraaaa,,, excel siap diedit….

Good Luck guyss..!!!!

Komentar →