Spanduk Siswa Baru MI Hidayatul Mubtadiin MIHM photo spanduk siswa baru mi hidayatul mubtadiin mihm_zpsev70avne.jpg
  • Tahun Pelajaran 2016/2017
  • Lulusan TP 2015-2016
  • Pendaftaran Tahun Pelajaran 2015-2016
  • Pendaftaran Tahun Pelajaran 2014-2015
  • Pendaftaran Tahun Pelajaran 2013-2014
  • Pendaftaran Tahun Pelajaran 2012-2013
  • Pendaftaran Tahun Pelajaran 2011-2012

Kamis, 17 Desember 2015

Membuka sheet Excel terproteksi

Cara membuka sheet Excel yang diproteksi - 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


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


Jika password sheet udah kelewat puanjuang (Panjangna kebangetan) biasanya kotak dialognya agak sedikit beruah seperti halnya gamar diawah ini


Dengan demikian maka berhasilah anda membobol password sheet

0 komentar: