Lupa Password UnprotecSheet (Excel)

Berikut Tips yang dapat dilakukan untuk mengatasi file excel dimana ada sheet atau sel yang diprotect tapi Anda lupa passwordnya.

1. Buka file Excel yang lupa passwornya tersebut
2. Jika sudah terbuka, tekan tombol ALT + F11 (ini untuk membuka Macro)
3. Lihat tampilan berikut ini :
   
   
4. Contoh diatas misalnya yang di protect adalah Sheet1, maka klik 2x saja sheet1 tersebut
5. Hasilnya seperti berikut :
   
   
6. Paste-kan Kode dibawah ini ke dalam area diatas.
   
   
   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
   
7. Ini gambarnya setelah di paste
   
   
8. Kalau sudah coba dijalankan dengan menekan tombol F5, tunggu sampai selesai proses
9. Kembali ke Excel dengan ALT + F11 lagi
10. Nah coba sekarang isi selnya di edit, jika sudah bisa artinya sudah berhasil

Source

Tweet