Lembar berkas Excel (MS-Office Excel) seperti berkas APLIKASI PENILAIAN KURIKULUM 2013 ada yang menggunakan proteksi VB Script.
File Excel tersebut kadang perlu kita edit atau perbaiki dan untuk melakukannya, silahkan lakukan langkah-langkah berikut.
- Buka file Excel terproteksi, anda dapat masuk dalam kondisi "Read Only"
- Buka lembar Excel yang diproteksi (semua Sheet atau lembar)
- Tekan tombol kombinasi "ALT+F11"
- Klik Insert > "Module"
- Setelah muncul editor "Modul1" salin dan tempelkan (copy-paste-kan) kode di bawah ini
INI CODE VB NYA:
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
- Kemudian klik Run pada Menu Bar Excelnya.. Tunggu hingga proses selesai.
- Setelah proses selesai, keluar dari lembar tersebut dan kembali lagi ke sheet semula, lihat hasilnya maka semua proteksi terbuka, termasuk klik kanan dan tanda aktif image sisipan. Jika belum, mungkin Anda belum beruntung, coba lagi, silahkan ulangi dari awal.