CARA MEMBUKA PASSWORD EXCELL

Ketika kita memutuskan untuk memberikan sebuah password pada sebuah file excell, kita memiliki tujuan agar file tersebut tidak rusak karena salah pengisian yang mengakibatkan membuat rumus atau link yang sudah kita pasang menjadi tidak berfungsi sebagaimana mestinya.

Namun tak jarang terjadi ketika kita perlu melakukan pengeditan pada sheet tersebut, kita sendiri lupa dengan password yang sudah kita pasang 😭.

Berikut adalah salah satu cara yang dapat kita lakukan untuk membuka proteksi sheet excell jika lupa passwordnya 😎

1. Langkah pertama yang harus kita buat adalah membuat copy dari file tersebut. Tujuannya adalah agar jika terjadi kerusakan pada file akibat proses yang tidak berjalan sempurna, kita masih memiliki file aslinya.

2. Sekarang bukalah file yang hendak kita buka proteksinya.

3. Arahkan mouse pada menu bertuliskan developer dan kliklah tombol tersebut. Maka akan muncul seperti gambar berikut:

4. Arahkan mouse ke tombol bertuliskan "VISUAL BASIC" yang berada di sebelah kiri:

5. Tekanlah tombol mouse kiri sebanyak 2 kali, sehingga muncul tampilan berikut:

6. Arahkan mouse pada menu INSERT kemudian klik MODULE

7. Kemudian akan muncul kotak isian berikut

8. Masukkan tulisan berikut ke dalam kotak tersebut

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

9. Sehingga hasilnya seperti gambar berikut:

10. Pilih sheet yang hendak dibuka pada pilihan dalam kotak kiri atas

11. Jika sheet sudah dipilih, arahkan mouse pada menu RUN kemudian klik RUN MACRO, sehingga muncul kotak berikut

12. Klik RUN dan tunggulah beberapa saat hingga proses selesai.

13. Jika proses di atas berjalan dengan baik, maka setelah proses selesai, sheet HOME sudah dapat dibuka dan diedit kembali.

14. Pada kondisi ini Sheet HOME sudah tidak diproteksi lagi. Jangan lupa save perubahan ini

Selamat mencoba dan gunakanlah untuk kebaikan bersama 😎

Demikian sharing saya, semoga bermanfaat dan memberi inspirasi :)

- JOEL -

Artikel terkait:

• Cara memproteksi Sheet Excell 
• Cara memproteksi sebagian cell dalam sheet excell