Pada
Kenyataanya, Jika Kita download file dalam bentuk ms.excel atau ms.word di
internet sering kita temukan lembar kerja yang seharusnya bisa diedit malah di
password oleh sang empunya. ya mau bagaimana lagi orang empunya emang PELIT
(heheeee). Nah tapi makasih juga bagi empu2 yang udah kasih protect pada file
yg gue download, jadi gue tau cara biar tau apa tuh password yang kalian buat
pada file ms.excel atau ms word kalian. Nah gue cari di mbah google ni,
akhirnya setelah gue praktekin ternyata bisa (allhamdulilah).
nah yang ane maksud kaya gambar diatas tuh gan, jadi saat
kita mau edit file tersebut, muncul lah penampakan peringatan kaya diatas. nii
caranya penyelesaianya gan yg gue dapet dari mbah google..
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
