Function Cara Membobol Paksa Password Proteksi Worksheet Melalui VBA #Rumus Ajaib

Judulnya keren "Membobol Paksa" tapi ya inilah memang yang akan saya bahas pada artikel kali ini. Unprotek worksheet yang sudah dipassword dan biasanya Anda akan disuruh memasukan password unprotek pada worksheet yang akan dibuka passwordnya namun sayangnya Anda tidak mengetahui password apa yang telah dientrikan.

Kenapa saya bahas cara bongkat password proteksi worksheet?
Sebuah pertanyaan yang mungkin saat ini sedang Anda cari unproteksi worksheet, karena sifat manusia yang lupa apa yang telah dilakukanya mungkin materi kali ini adalah jawabannya karena saya akan mencoba membantu Anda untuk membongkar password worksheet yang lupa.

Cara Membuka Password Worksheet pada Ms. Excel

Untuk membuka password worksheet biasanya ada di menu View kemudian pilih Unprotek dan setelah itu Anda akan disuguhkan dengan jendela untuk memasukan password yang telah Anda buat namun sayangnya anda lupa password tersebut. Lalu bagaimana caranya?

Baca:
3 Cara Proteksi Worksheet dengan VBA

Pertama langkah yang harus disiapkan adalah dengan menambahkan module untuk menuliskan kode VBA nya. Lalu apa kode VBA tersebut? silakan baca-baca kembali beberapa posting yang pernah saya bahas sebelumnya mengenai VBA Ms. Excel. Jika Anda malas silakan simak langkahnya berikut ini :

Langkah pertama silakan Anda tekan tombol kombinasi ALT+F11 maka Anda akan masuk ke VBA Editor


Langkah berikutnya tambahkan satu buah Module dengan cara klik Menu Insert kemudian pilih Module kemudian tuliskan kode dibawah ini pada module tersebut

Simak :
Bagaimana cara membuat Password pada Ms. Excel?

Sub BongkarPassword()
'Membongkar Password Worksheet
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 Telah Dibongkat " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n), vbInformation, "Informasi"
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

Lalu Anda bisa tambahkan satu buah UserFor melalui menu Insert kemudian UserForm


Setelah itu Anda silakan double klik tombol Bongkat Password tersebut kemudian silakan panggil prosedur "BongkarPassword" module tersebut dengan cara menuliskan kode VBA berikut ini


Dan silakan jalankan userform tersebut dengan cara klik tombol Run atau bisa dilakukan dengan menekan tombol F5 lalu silakan klik tombol "Bongkar password" maka secara otomatis password yang telah lupa akan diresset dan dihapus


Dan berhasil, silakan cek apakah worksheet masih terpassword ataukah sudah tidak? jika berhasil jangan lupa untuk komentar ya.

Baca Cara Membuat dan Membuka Password pada Ms. Excel

Semoga bermanfaat.

Tweet

Subscribe to receive free email updates: