Cara Unprotect Sheet Excel Terbaru Tanpa Aplikasi

Halo Tekners, kalian tidak salah tempat jika masuk blog saya ini. Yup sesuai judul, saya akan membahas masalah yang mungkin akan menjengkelkan bagi beberapa orang seperti mahasiswa, dosen, pebisnis dan sebagainya. Langsung aja ke pembahasannya happy reading :)

Terkadang saat kita membuat suatu berkas yang bersifat rahasia atau penting, biasanya berkas tersebut kita Protect agar dokumen kita aman, misalnya dalam pembuatan dokumen Microsoft Excel. Akan tetapi bagaimana jika kita lupa password-nya maka bagaimana cara kita bisa mengubah data yang kita buat tadi, padahal dokumen tersebut sudah di Protect huhu.

Tapi sebelum membahas hal tersebut apa kalian sudah tau fungsi dari proteksi tersebut? berikut pembahasannya

Proteksi adalah sebuah perlindungan yang dilakukan terhadap sesuatu yang sifatnya lemah. Seperti yang kita ketahui proteksi biasanya diterapkan dalam kegiatan ekonomi. Namun, dalam progam komputer seperti Ms.Office Excel ia juga mengenalkan sistem proteksi contohnya saja proteksi sheet (sheet protect).

Dengan sistem proteksi yang ada dalam Ms.Office Excel ini, file kita akan lebih aman atau menghindari hilangnya data seperti, rumus, fungsi-fungsi dan sebagainya, atau hanya untuk mengamankan sebuah data dari tangan-tangan jahil yang tidak bertanggung jawab.

Cara Unprotect Sheet Ms. Excel

sumber gambar: ghozalibumiayu.blogspot.co.id

1. Buka file excel yang akan kalian unprotect di Ms. Excel

2. Tekan ALT+F11 pada keyboard kalian, maka akan muncul tampilan seperti gambar berikut ini dan silahkan klik sheet yang ingin di unprotect:

3. Kemudian tekan F5 pada keyboard kalian, maka akan muncul tab bernama 'Macros' seperti gambar berikut, dan silahkan isi saja 'Macro Name' dengan unprotect, lalu klik Create. Maka akan muncul tab baru yang berisi sedikit script (kode) lalu tinggal kalian hapus saja script tersebut 

4.  Nah silahkan copy Script berikut 

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 "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)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next

End Sub
5. Paste-kan script diatas, seperti gambar dibawah, lalu klik F5

Nah tunggu beberapa saat hingga dialog seperti gambar diatas (sebelah kanan) muncul, jika sudah muncul maka file excel tersebut sudah ter unprotect :) 
akan tetapi jika file yang terprotect adalah VBA Projectnya maka tutorial diatas tidak bisa digunakan ya.

Jika ada pertanyaan silahkan ketikan dikolom komentar dibawah, Admin akan menjawab jika ada waktu luang.

Have a nice day, semoga bermanfaat. Share artikel ini jika berguna ya, terimakasih sudah mengunjungi JalanTekno.com. 

Share this post