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.
