Bypass Excel Spreadsheet Password dengan VBA Code

Cara terbaik untuk melindungi lembar kerja adalah dengan memasukkan kata sandi, sehingga jika ada yang membuka file maka mereka harus memasukkan kata sandi yang benar untuk mendapatkan akses. Celakanya jika anda lupa kata sandi sendiri. Untungnya, ada banyak cara untuk memulihkan kata sandi excel dan dengan menggunakan kode VBA adalah salah satunya. Kode VBA biasanya membantu memulihkan kata sandi lembar kerja yang hilang dengan mudah.

Berikut adalah langkah-langkah jika anda lupa passwordnya:

1. Buka file Excel yang perlu dibuka, lalu tekan Alt + F11 untuk membuka jendela VBA.
2. Pilih opsi yang mengatakan Sisipkan diikuti oleh Modul.



3. Ketika jendela umum muncul di situlah Anda memasukkan kode VBA.



4. Klik tombol "Jalankan" (atau tekan tombol F5) untuk menjalankannya.
5. Dalam beberapa saat, kode akan memecahkan kata sandi lembar kerja dan Anda akan dapat melihat jendela pesan kecil dengan kata sandi lembar kerja. Anda dapat menuliskan ini di selembar kertas dan menggunakannya untuk membuka kunci lembar kerja Anda.

Sub InternalPasswords()

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

ActiveWorkbook.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)

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 ActiveWorkbook.ProtectStructure = False Then

If ActiveWorkbook.ProtectWindows = False Then

If ActiveSheet.ProtectContents = False Then

Exit Sub

End If

End If

End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

Catatan Programming VBA Februari 01, 2019