Cara Mudah Membuka Workbook / Sheet pada Microsoft Excel yang diProtect

Assalamualaikum sobat ..

Pernahkah sobat mendapati File Ms. Excel yang ketika kita mau edit, eh ..ternyata Worksheetnya terprotect.

pasti bawaannya kesel kan? Eitz..tapi sobat jgn berkecil hati dulu, pada kesempatan kali ini AMIR aka share cara membuka Workbook / Sheet pada Microsoft Excel yang diProtect.

langsung ja simak langkah2nya ...

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

Terimakasih semoga bermanfaat,jgn lupa koment ya sobat ...