Cara Membobol Paksa Password (Proteksi) Worksheet Melalui Vba - Gasskeun Cara Membobol Paksa Password (Proteksi) Worksheet Melalui Vba | Gasskeun

Cara Membobol Paksa Password (Proteksi) Worksheet Melalui Vba

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 perlindungan worksheet?
Sebuah pertanyaan yang mungkin ketika ini sedang Anda cari unproteksi worksheet, alasannya sifat insan yang lupa apa yang telah dilakukanya mungkin bahan kali ini yaitu jawabannya alasannya 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 sajian View kemudian pilih Unprotek dan sesudah 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 yaitu dengan menambahkan module untuk menuliskan instruksi VBA nya. Lalu apa instruksi 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 instruksi dibawah ini pada module tersebut

Simak :
Bagaimana cara menciptakan 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 dapat tambahkan satu buah UserFor melalui sajian Insert kemudian UserForm


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


Dan silakan jalankan userform tersebut dengan cara klik tombol Run atau dapat dilakukan dengan menekan tombol F5 kemudian 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? jikalau berhasil jangan lupa untuk komentar ya.

Baca Cara Membuat dan Membuka Password pada Ms. Excel

Semoga bermanfaat.

Related Posts