Cara Membuka Protect Workbook / Sheet Excel

Suatu hari pernah pas lagi kerja sheet yang saya protect saya lupa kuncinya!! mana diburu-buru data nya sama pak bos. sempet bingung dan akhirnya jurus terakhir tanya mbah google dan info dari sumber-sumber lain yang dapat dipercaya..
ni dia caranya agan-agan yang mengalami kesulitan buka sheet yang ke protect :

 

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

selamat mencoba semoga berhasil 

Related Post