Banyak alasan untuk membuka proteksi password Office Excel. Misal seperti karena lupa atau bahkan mungkin kita menemukan file Office Excel yang harus kita edit datanya sedangkan file tersebut diproteksi oleh orang lain. Kemudian kita kesulitan untuk menanyakan password tersebut kepada orang yang telah membuat passwordnya. Maka solusi satu-satunya adalah dengan melakukan cara yang akan saya bahas disini.
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()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
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
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.
0 komentar:
Posting Komentar