Kawan-kawan OP terutama di Kawasan Kecamatan Cilimus Kab. Kuningan, terkadang sering menemukan file excel yang diprotect oleh creatornya, dan hal tersebut sering memusingkan para OPS terlebih jika harus setor buru-buru. Pada posting ini Bang ORGA coba share trik atau cara mudah untuk
membuka protect sheets excel tanpa menggunakan password khusus pada microsoft
excel 2007 (mungkin juga bisa digunakan pada ms excel 2010).
Langkah pertama yang Bang ORGA ambil adalah klik kanan pada nama sheet file yang ada dibagian bawah
(seperti sheet1, sheet2, dan sheet3) lalu pilih “VIEW CODE” atau tekan tombol
kombinasi “Alt + F11″ maka akan terbuka jendela Microsoft visual basic
kemudian pilih insert MODULE. Maka akan terlihat gambar seperti di bawah ini Gangs... M
Langkah kedua yang Bang ORGA ambil setelah terbuka jendela
seperti di atas masukan kode di bawah ini : K
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
Ingat Gangs, kode script di atas
harus dicopy seluruhnya dari kata Sub InternalPasswords() sampai dengan End Sub. Ok SOB J
Sehingga pada layar akan tampak seperti ini : M
Langkah ketiga yang Bang ORGA ambil yaitu ngeklik TOOLS (yang ada di
atas) kemudian pilih MACROS. Maka akan tampak layar seperti ini : K
Selanjutnya Gangs tinggal klik RUN dan tunggu
beberapa saat sampai proses selesai. Setelah itu Gangs keluarkan layar Microsoft
visual basic dengan mengklik tanda close (x) yang ada di pojok kanan atas atau
dengan mengklik FILE (dipojok kiri) lalu pilih CLOSE AND RETURN TO MICROSOFT
EXCEL.
Untuk membuka protect sheet pada
sheet-sheet yang lain lakukan dengan langkah yang sama.
Buat Gangs dan Gangsist yang akan mencoba Bang ORGA saranin SAVE AS dulu file
excel yang mau diedit dan gantikan dengan nama file yang lain. Untuk yang
sudah mencobanya ditunggu komentar dan sarannya di bagian rubrik komentar Apabila file EXCEL tersebut berbentuk
MACRO ENABLE WORKBOOK, save as terlebih dahulu file tersebut ke tipe EXCEL
WORKBOOK
Masih Bingung, Tinggal Hubungi Bang ORGA aja Gangs 082315790559 :)
