Cara Membuka File Excel yang Terprotect

File Excel yang ngopy dari pusat tidak bisa diedit padahal ada data yang perlu dikoreksi atau diubah, atau kalo saya mau hapus data yang kurang pas dalam cell file nya terprotect bagaimana?

Mau hubungi personal yg membuat file dalam format excel tersebut kelamaan, kan butuhnya kadang kala saat itu juga...

Belum lagi ada teman yg minta tolong dilakukan koreksi yang mendadak dan kayaknya gak dapat diganggu gugat.

Mau pakai software??? Pernah sihhh... tapi ribet & banyak waktu yg terbuang hanya buat edit data cell yang gak banyak. 

Akhirnya... Alhamdulillah... Setelah browsing kanan kiri, atas bawah, sana sini... ketemu. Dan saatnya berbagi pengetahuan dengan teman lainnya..

Berikut tips agar file Excel atau xls dapat diedit dan diubah sesuka hati.

Ikuti langkah berikut :

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 cak pram'

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 sekarang file xls sudah dapat diedit