Membuka Sheet Excel Yang Diproteksi

"Oh tidak!!!! aku lupa passwordnya!!!" pernah mengalami berteriak seperti itu, saat lupa password yang dibuat sendiri untuk memproteksi sheet di Excel Gan?

Maksud hati ingin mengamankan rumus yang dibuat untuk menghindari human erorr alias tidak sengaja teredit, tapi akhirnya ketika butuh untuk mengembangkan aplikasi, justru lupa password yang dibikin sendiri.

Jangan khawatir Gan, yang pertama harus agan lakukan adalah mengambil teh atau kopi dan cemilan hehe. Setelah itu duduk di depan PC dan lakukan langkah-langkah berikut :


1. Klik kanan pada sheet yang diproteksi lalu pilih view code (jika sheet sudah dihidden tekan Alt+F11)

Gambar 1. Klik kanan Sheet-View Code

2. Jika sudah, silahkan masukkan kodedi bawah ini :

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

Gambar 2. Masukkan Code

3. Setelah code dimasukkan, silahkan klik Run.

Gambar 3. Klik Run

4. Minum kopi/teh yang sudah agan sediakan, dan nikmati cemilan sambil menunggu proses berjalan hehe. Jika excel muncul tulisan "Not Responding" jangan segera ditutup Gan. Biarkan saja prosesnya berjalan.

5. Setelah proses selesai (tanda loading berhenti) maka silahkan close halaman makro, dan coba edit sheet agan tadi. Insya Alloh berhasil.

Silahkan dicoba, semoga secoret tulisan ini bermanfaat. ^_^.