Cara Mengedit Worksheet Yang Diprotect dengan Password

Suatu hari saya mendapat tugas dari Kepala Sekolah untuk mengisi Instrumen Penilaian Kinerja Guru ( PKG ). Langkah pertama yang saya lakukan adalah download file Instrumen PKG.
Saya berhasil download file tersebut yang berformat xlxs atau file excel
Ketika saya membuka dan mencoba mengedit file tersebut , saya tidak dapat lakukan editing file tersebut. Ternyata file ini diprotect dengan pasword.
Bagaimana cara membongkar Passwordnya?..... yuk kita ikuti langkah yang saya lakukan
Langkah-Langkah Membuka Unprotection Sheet
Pertama
Buka file yang diprotect dengan pasword tersebut
Kedua
Tekan tombol ALT + F11 padakeyboard, hingga terbuka halaman Microsoft Visual Basic seperti gambar di bawah ini

Langkah ketiga
Pada halaman visual basic, klik menu Insert >Medule hingga terbuka halaman kosong seperti gambar di bawah ini

Langkah keempat

Copas teks di bawah ini kedalam halaman kosong tadi dengan cara : blok teks di bawah ini, kemudian tekan tombol ctrl+C ( copy )

Sub PasswordBreaker()

'Author unknown but submitted by brettdj of www.experts-exchange.com

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

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 ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveWorkbook.Sheets(1).Select

Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next:Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

kembali ke module yang kosong tadi ,kemudian tekan tombol Ctrl+V ( Paste ) pada halaman kosong module visual basic. selanjutnya klik save, tutup halaman visual basic

Langkah kelima

Kembali ke sheet yang diproteks dengan password.

Tekan tombol Alt+F8 pada keyboard, hingga terbuka kotak dialog macro seperti gambar di bawah ini

Selanjutnya klik Run

Nah,.. setelah klik run maka akan ditampilkan kotak dialog yang menunjukkan password untuk mengedit sheet tersebut.

Selamat mencoba, semoga postingan ini bermanfaat