28/04/2015

Cara Membuka Sheet Excel Yang Diproteksi/Dikunci


Siapkan workbook dengan sheet yang telah anda kunci
Tekan Alt+F11 untuk masuk kejendela Visual Basic Editor (VBE) 
Buat sebuah modul, kemudian masukan kode dibawah ini kedalam modul




Sub BukaSheet()
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 Crack Yang Sudah Termodifikasi Adalah : " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Tutup jendela Visual basic editor (VBE)
Buka tab >Developer>Macros. Akan terlihat kotak dialog dengan list "BukaSheet" >klik Run , 
Lihat gambar
 Jika berhasil maka akan ada kotak dialog seperti gambar di bawah ini
 
Jika password sheet udah kelewat puanjuang (panjangnya kebangetan) biasanya kotak dialognya agak sedikit beruah seperti halnya gamar diawah ini
 
Gunakan dikala benar-benar membutuhkan, 
Semoga bermanfaat..........

0 comments: