KEMBUKA PROTEKSI EXCEL YANG LUPA

Bagi kamu yang seringkali kelupaan dalam mengingat password karena banyaknya account yang kita miliki membuatnya menjadi bumerang bagi kita terutama saat dibutuhkan dan ternyata file excel yang kita butuhkan terproteksi dan proteksi tersebut lupa kata kuncinya

Oleh karenanya supaya kita bisa membuaka kata kunci tersbut dibutuhkan sedikit ilmu untuk kembali bisa bekerja menggunakan excel.

Adapun langkah-langkahnya adalah:

1. Buka lembar excel kamu
2.  Kemudian tekan tombol kombinasi ( alt + F11 )
3. Kemudian buka (klik) insert pada menu bar dan pilih modul
4. Lalu kemudian copy modul dibawah 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

5. Kemudian tekan run/user form/f5

      6. Tara......hilang sudah password yang kelupaan buka tadi

      7. Dan selamat bekerja kembali dengan menggunakan

Writen by Hisam Kholili