Friday 28 November 2014

MEMBUKA WORKSHEET EXCEL YANG TER-PASSWORD


Salam jumpa kembali.

pada kesempatan kali ini, saya coba share kepada para sahabat yang bermasalah ketika mencoba mengedit suatu file berekstensi *.xls atau akrab disebut dengan file excel. pada Microsoft excel disediakan suatu sistem protection (keamanan) yang memungkinkan para pembuat atau penulis untuk memberikan password agar file yang dia kerjakan tidak dapat diedit atau diubah oleh sembarangan orang. namun sering kali kita memerlukan untuk kita ubah sedikit. atau bisa jadi kita yang memberikan passwordnya tapi kita lupa password yang kita pasang pada file excel tersebut. langsung saja berikut ini saya share langkah-langkahnya.

1. Buka file excel yang terproteksi tersebut
2. File excel yang terproteksi, dapat diidentifikasi dari tampilan Review'nya, disana tertuliskan unprotect sheet
3. saudara tekan keyboard dengan kombinasi tombol Alt + F11, maka akan muncul microsoft visual basic
4. pada tab menu, klik insert lalu pilih module
5. dengan demikian akan muncul kotak dialog module seperti dibawah ini
6. sekarang saudara tinggal copy kode dibawah ini seluruhnya dari Sub InternalPasswords() sampai dengan End Sub dan paste kan di dalam kotak dialog module.

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


7. setelah di paste, maka saudara langsung saja klik tab menu tools lalu klik macros
8. kotak macros segera muncul dan klik run, tunggu beberapa saat sampai proses loading selesai,, biasanya memakan waktu yang cukup panjang juga.
9. apabila proses selesai saudara tinggal tekan F5 atau Ctrl + F5 atau apalah settingan kompter saudara untuk me refresh komputer,, setelah itu tutup microsoft visual basic atau dengan langkah Alt + F11 untuk kembali menampilkan file Excel yang terproteksi tadi,, dan saudara bisa lihat hasilnya.. 
selamat mencoba

0 comments:

Post a Comment