Assalamualaikum wr. wb.
Selamat Siang agan-agan sekalian.
Dihari yg cerah dan panas ini, saya akan Berbagi informasi tentang pelajaran saya, yaitu
CARA MEMBUKA SHEET EXCEL YANG DI PROTECT.
Yaa, mungkin agan-agan sudah mengetahui cara membobol protect ini. Tapi mungkin saja sebagian dari agan-agan sudah lupa / tidak mengetahuinya.Maka dari itu saya disini akan berbagi tentang masalah ini.
YOSH, kita langsung saja mempraktekannya.
Syaratnya, yang pasti agan-agan harus memiliki Microsoft office Excel yg di protect :D
Pertama, Agan-agan pastikan terlebih dahulu bahwa file excel tersebut terprotect.
~Ketik apa saja di salah satu sell. Apabila tidak bisa diubah, berarti benar-benar terprotect
~Atau bisa dicek di menu bar, kemudian Review. Bila tulisannya unprotect sheet seperti digambar, maka sheet tersebut telah di protect.
Kedua, Setelah dipastikan file excel terprotect. Klik kanan pada sheet yg di protect, kemudian View Code.
Ketiga, Setelah agan-agan klik view code, agan-agan nanti akan masuk ke microsoft visual basic, Pastikan sheet yang ditempel script adalah yang diprotect
Keempat, Masukkan kode / copy kode dibawah ini
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
Kemudian klik start atau Tekan F5
Kelima, Tunggu Beberapa menit. Bila sudah selesai, klik kanan sheet yg terprotect tadi,
Bila ada tulisan Protect sheet, berarti agan-agan berhasil
Mungkin cukup ini saja, mohon maaf bila ada kesalahan dalam perkataan diatas. Terima kasih
Wassalamualaikum wr. wb.
