Kenapa sheet excelku tidak bisa diedit?

Bekerja tiap hari ngelus-elus keyboard tentunya sangat familiar dengan excel dan teman-temannya.
hingga pada suatu saat ketika kurikulum 2013 booming, aplikasi raportnya yang berupa file excel tidak bisa diedit untuk ditata atau ditambah keterangan lainnya.
mau tidak mau saya yang didaulat ngeprint 12 kelas searching berbagai trik membuka proteksi sheet. Alhamdulilah pak sri wasono widodo ( Widyaiswara LPMP Jateng) selaku pengembang aplikasi mencantumkan trik membuka proteksi sheet ini.
Berikut cara membuka proteksi sheet yang terkunci, semoga bermanfaat buat teman-teman semua ya..
1. buka sheet excel yang terkunci
2. tekan Alt + F11 untuk membuka jendela visual basic editor
3. klik insert - module, kemudian paste kan kode berikut

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

setelah itu, klik sheet yang akan dibuka , berikutnya klik tools - macros - pilih internalpassword terus klik run, tunggu beberapa saat

taraaaa...excelnya dah bisa diedit

semoga bermanfaat ya.