Mengatasi Lupa Password Sheet Pada Microsoft Excel

Assalamu'alaikum Wr.Wb.

Microsoft Excel merupakan sebuah aplikasi pengelola spreadsheet yang sangat populer. Dimana dengan aplikasi ini kita bisa berkesperimen dalam membuat sebuah file yang nantinya bisa kita jadikan sebuah aplikasi sederhana yang bisa mempermudah dalam pekerjaan kita.

Salah satu fitur yang sering digunakan pada aplikasi Microsoft Excel ini adalah, fitur proteksi sheet. Dimana jika fitur ini kita terapkan, maka pengguna dari file/aplikasi yang kita buat menggunakan Microsoft excel ini tidak bisa mengubah/menghapus isi dari sheet yang telah kita proteksi. Namun tidak kita pungkiri, namanya juga manusia pasti pernah lupa. Terkadang kita lupa password yang telah kita buat. Berikut adalah cara untuk mengatasi jika kita lupa password yang telah kita buat di file/aplikasi yang kita buat.

Pertama-tama buka file/aplikasi excel kita yang kita lupa password sheetnya tadi. kemudian tekan tombol Alt+F11 pada keyboard secara bersamaan. Otomatis kita akan diarahkan ke sebuah halaman Microsof Visual Basic yang merupakan bagian dari Microsoft Excel tersebut, langkah selanjutnya adalah klik pada menu Insert - Module, seperti gambar berikut ini :

Maka akan muncul sebuah lembar kerja baru seperti berikut ini :

Kemudian copy dan paste kode di bawah ini kedalam lemar kerja baru tersebut :

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

Sehingga akan menjadi seperti berikut ini :

Nah Langkah terakhir adalah, kita klik tombol Run atau bisa menekan tombol F5 pada keyboard :


Tunggu hingga proses penghapusan password selesai, biasanya akan muncul pop seperti berikut ini :



Demikian cara mengatasi lupa password sheet Microsoft Excel. Semoga bermanfaat. Wassalamu'alaikum Wr. Wb.
Salam Mas Operator!!!

Share :