MENGATASI FORM EXCEL YANG TERPROTEKSI

Apakabar semuanya!?!?!? Selamat datang kembali di ladangbelajar.blogspot.com. Saya ingin kembali memberikan tips dan trik terkait Ms. Office Excel. Jadi ceritanya ilmu baru ini saya dapatkan pas bantu nyelesaikan

permasalah dosen saya. Beliau punya file .excel tapi ada beberapa form/sheet yang terkunci/terproteksi. Jadi beliau inginnya mengisikan nilai di form tersebut. Karena belum pernah menyelesaikan permasalahan seperti ini, akhirnya saya coba googling dan mendapatkan trik mujarab dari beberapa sumber.

Tanda-tanda suatu form yang terkunci dapat dilihat pada gambar utama diatas. So, langsung saja ikuti langkah2 berikut:

1. Buka file .excel yang terproteksi.

2. Lalu tekan tombol Alt+F11 untuk masuk kedalam program Visual Basic (VB).

3.  Klik menu Insert-->Module

4. Lalu copy dan paste kan baris kode berikut ke window module 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

5. Setelah di paste ke window module, pilih menu file-->save book1 (nama file .excel)

6. Kemudian kembali ke file .excel yang terproteksi tadi.
7. Piliih menu  Macros-->View Macros-->Internal Passwords-->Run
8. Tunggu beberapa saat sampai proses selesai. 
9. Setelah proses selesai Anda dapat kembali mengubah atau mengisi form/sheet yang awalnya terproteksi.

SELAMAT MENCOBA!

Sumber:
http://blog.pcc.web.id/2014/03/cara-membuka-proteksi-sheet-microsoft.htmlhttp://blog.pcc.web.id/2014/03/cara-membuka-proteksi-sheet-microsoft.html