MIS Nurul Islam Cigedug
Kp. Cihuru 02/04 Ds. Sukahurip Kec. Cigedug Kab. Garut
Kamis, 11 Februari 2016
Senin, 14 Desember 2015
Rabu, 09 Desember 2015
Jumat, 24 April 2015
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
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
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
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
Langganan:
Postingan (Atom)
