Yang kita butuhkan untuk melakukan Unprotect Office Excel hanya serangkaian script atau kode saja. Kode tersebut berfungsi untuk menghilangkan proteksi pada file Office Excel. Cara kerjanya sangat simple dan tidak akan membutuhkan waktu lama untuk melakukannya.
Biasanya jika kita membuka file Office Excel yang telah ditentukan password (proteksi) didalamnya maka ketika kita melakukan klik ganda pada salah satu kolom layar kerja maka akan tampil peringatan seperti ini :
Kemudian jika kita lihat di menu Review maka akan jelas terlihat pada bagian Changes disitu tertera tulisan Unprotect Sheet. Fitur itu fungsinya adalah untuk membuka proteksi password Office Excel. Masalahnya jika kita tahu passwordnya maka tidak akan dipusingkan dengan hal ini. Namun jika sebaliknya kita lupa atau tidak tahu karena file ini dibuat oleh orang lain lalu bagaimana?
Caranya sebagai berikut:
1. Buka file excel yang di proteksi
2. Tekan tombol kombinasi “ALT+F11″ akan muncul tampilan sbb :
3. Lalu Klik Insert > module
4. copy paste-kan code berikut ini pada lembaran module baru, seperti gambar diatas :
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, biasanya posisinya seperti yang ditunjukkan oleh tanda panah dibawah ini, disertai dengan judul file yang di protect
6. Lalu klik Save
7. Setelah tersave dengan benar lalu close, masuk kita ke lembar kerja atau file yang di protect tadi
8. Klik Macro > Show Macro > Internal Password > Run
9. Tunggu beberapa saat (tergantung besar kecil ukuran File)
10. Jika proses sudah selesai, maka anda sudah bisa mengedit file tersebut dengan leluasa.
Tidak ada komentar:
Posting Komentar