Friday, 29 May 2015

CARA MEMBOBOL PASSWORD PROTEKSI SHEET MICROSOFT EXCEL


Cara Membobol Password Proteksi Sheet Microsoft Excel Dengan Macro
Cara Membobol Password Proteksi Sheet Microsoft Excel Dengan Macro ini berhasil kami lakukan saat mencoba membuka keamanan atau proteksi pada sheet mc. excel. Proses menjebol sheet excel yang di proteksi ini sangat mudah, cukup menggunakan kode macro. Pada mulanya Arminaven mendapatkan tugas untuk mengisi data EMIS program jokowi dengan kartu pintarnya. Jadi ada program excel yang diberikan dan pada sheetnya di proteksi dengan password. Setelah googling akhrnya Malie menemukan bagaimana cara mengatasi sheet excel yang diproteksi.

Bermula Saat mencoba mengedit maka akan muncul peringatan seperti ini
the cell or chart you are trying to change is protected and therefore read-only
"the cell or chart you are trying to change is protected and therefore read-only. TO Modify a protected cell or chart, first remove protection using Unprotect Sheet command (Review tab, Change group). You may be prompted for password""


atau ciri lain dari sheet yang diproteksi adalah jika kita lihat pada tab review maka akan ada iconunprotect Sheet 
Unprotect Sheet
Icon Unprotect Sheet
File tersebut hanya bisa diedit jika kita mengetahui password untuk Unprotect Sheet. Baru sadar ternyata sudah bertahun-tahun tidak bermain-main dengan Sheet Excel yang diproteksi :D. Kalau dulu, biasanya saya menggunakan Open Office untuk mengedit file yang terproteksi, dari hasil percobaan, ternyata proteksi excel tidak berlaku di program lain seperti Open Office, Libre Office dll. 
Kebetulan Komputer yang saya gunakan belum terinstall Open Office/Libre Office, sepertinya membutuhkan waktu lama jika harus mendownload dan menginstall program tersebut. Maka dengan bantuan mbah Google, akhirnya bisa menemukan cara membuka proteksi Sheet Excel dengan menggunakan VB (Visual Basic) Script. 

Berikut ini adalah step by step membuka proteksi Sheet Excel dengan menggunakan VB Script:
  1. Buka file excel yang di proteksi
  2. Tekan tombol kombinasi “ALT+F11″
  3.  Klik Insert > module
  4. copy paste-kan code berikut 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

5. Klik pada sheet atau workbook yang akan kita buka password-nya
6. Klik Macro > Show Macro > Internal Password > Run
7. Tunggu beberapa saat (tergantung besar kecil ukuran File)
8. Jika proses sudah selesai, maka anda sudah bisa mengedit file tersebut dengan leluasa. Untuk mengecek apakah file masih terproteksi bisa juga dilihat di tab Review, maka icon Unprotect Sheet sudah berganti menjadi Protect Sheet.

Semoga bermanfaat jika  suatu saat anda lupa password proteksi sheet atau membutuhkan mengedit file yang ternyata diproteksi.

0 komentar:

Post a Comment

bagus sangat membatu bagi kami
sering-seringlah enteri file yang baru
kami merasa senang dan bangga atas kebedradaan blog ini