Unprotect Sheet pada Excel

Halo gaes, kesempatan kali ini saya kan share cara yang sudah ada untuk melakukan unprotected sheet pada excel, baik pada ekstensi xls, maupun xlsx
ada 2 cara untuk melakukan Unpretected pada file excel
1. Dengan mengubah file excel tersebut menjadi zip.
2. Dengan menggunakan VBA Code

Cara 1
a. Pertama ganti extensi protected file excel yang anda miliki(saya menggunakan excel dengan extensi xls sedangkan xlsx tidak bisa sehingga sebaiknya langsung ke cara 2) dari .xls ke .zip. ini akan memaksa file anda menjadi file archive.

b. Open file zip dan right click pada file yang sedang protected.

3. Klik pada "Edit" dan akan terbuka ke Notepad.

4. Hilangkan Tag (dengan simbol < dan >) dengan kata "Sheet Protection" dan kemudian simpan seperti gambar dibawah.

5. Kembalikan file zip tersebut menjadai .xls file proses unrotected file excel tersebut selesai..



Cara 2
a. Buka dokumen excel dimana sheetnya terprotect oleh pasword, salah satu cirinya seperti dibawah ini...

b. Tekan Alt + F11 untuk membuka Visual Basic Editor.
c. Klik Kanan pada Workbook Name pada Panel kiri (Project-VBAProject pane) dan pilih Insert > Module dari menu Context
d. pada windows yang muncul, paste code ini:

kemudian paste code ini

Sub PasswordBreaker()

    'Breaks worksheet password protection.

 

    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 "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)

 

            Exit Sub

 

        End If

 

    Next: Next: Next: Next: Next: Next

    Next: Next: Next: Next: Next: Next

End Sub




e. Pencet F5 or click tombol Run pada toolbar dan tunggu sampai muncul keterangan.. oke dan sudah terbuka....