Senin, 23 Desember 2019

Membuka Sheet Microsoft Excel Yang di Proteksi/ Tidak Bisa Diedit Tanpa Password

Standard
Hasil gambar untuk excel logo
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()

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.
Silahkan Tinggalkan Komentar Anda :