Mahendra Dita

Cara Membuka Protect Workbook / Sheet pada Microsoft Excel


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



Anda baru saja membaca artikel yang berkategori Tips & Trik Ms. Office dengan judul Cara Membuka Protect Workbook / Sheet pada Microsoft Excel. Anda bisa bookmark halaman ini dengan URL http://hendralehol.blogspot.com/2013/10/cara-membuka-protect-workbook-sheet.html. Terima kasih!
Ditulis oleh: Hendra Lehol -