Rabu, 22 April 2015

Cara membuka Excel yang di protek



Membuka sheet Excel terproteksi
Mengunci sebuah lembar kerja atau mengunci sheet tujuannya adalah untuk melindungi data atau file yang sudah kita buat di rubah oleh orang-orang yang jail atau orang yang tidak bertanggung jawab.

Untuk mengunci Sheet adalah digunakannya sebuah password. Namun akan menjadi suatu galau tersendiri saat anda lupa angka angka atau huruf huruf yang anda gunakan sebagai password sheet. Untuk mengantasi atau untuk mebukan password sheet yang terkunci tadi ada modul yang bisa membuka pakasa sheets yang telah anda kunci, begini caranya.

Cara membuka sheet Excel yang diproteksi - Langkah membuka sheet yang terkunci
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
http://4.bp.blogspot.com/-zWtQxE4CXVU/VBNPJhvWAQI/AAAAAAAAH7M/PUj-3xXczo8/s320/Capture.JPG


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

Driver Printer IP 2700

Driver Printer Canon IP 2700 Insyaallah bermanfaat  (Klik Untuk Download)