Rabu, 27 Agustus 2014
Beberapa
waktu lalu ane jalan-jalan ke kuningan . . diminta bantuin ayah yang lagi
assesor untuk akreditasi SD. ane diminta masukan komentar pada nilai nilai yang
berubah. eh ko ternyata pada kolom yang memang harus di isi akan tetapi
terkunci . . . lah ko gini ya!! padahal harus di isi . . . pas ane mu buka
protect sheet nya . . pake password!! makin mengkel bae . . . :)
tapi
untungnya ada mbah google . . . ane cari kode buat ngebuka protectnya . .
akhirnya dapet juga . . Alhamdulillah>>
ini dia
langkah-langkahnya ;
1. pertama
ya kita buka dulu file excel yang sheet nya kekunci
2. kedua
klik sheet yang akan dibuka passwrdnya . . kemudian klik kanan pada sheetnya
dan pilih “view code” akan terbuka jendela baru secara otomatis (Microsoft
visual basic), atau bisa juga dengan cara menekan tombol kombinasi “Alt + F11″
apabila
sudah muncul tampilan seperti ini, berarti langkah kedua berhasil
3.ketiga
di lanjutkan klik insert kemudian module, kemudian
di bagian tengah akan muncul jendela baru/module
nanti muncul seperti ini (beraarti langkah anda sudah benar)
4.ke empat
copy pastekan kode berikut ini (copy dan paste mulai dari ” Sub
InternalPasswords()” sampai dengan “end sub”) :
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. langkah
kelima Lihat bagian kiri atas lembar kerja, klik pada sheet yang akan
kita buka proteksinya.
Klik tab
Tool/Macros/buat baru ” InternalPassword” copy bhs program dia atas tadi
next Run
6. langkah
terakhir tinggal Tunggu beberapa saat , setelah selesai loading klick
icon Microsoft Excel di pojok kiri atas atau “Alt + F11″ untuk kembali ke
lembar kerja,kemudian untuk mengecek sudah tidak di protect . . klik
kanan saja pada sheet yang tadi di protect . . . . wakwwaaaaaw . .
skarang anda bebas merubah sheet yang tadinya dikunci . .
sekian dulu dari ane . . . ane menggunakan cara ini di Ms. office 2007 dan 2010 . . di 2003 dan 2013 belum pernah dicoba . . tapi sepertinya untuk di office 2003 bisa digunakan cara ini . . .
akhirul kalam . . wassalamu'alaikum warahmatullahi wabarakaatuih :)
sekian dulu dari ane . . . ane menggunakan cara ini di Ms. office 2007 dan 2010 . . di 2003 dan 2013 belum pernah dicoba . . tapi sepertinya untuk di office 2003 bisa digunakan cara ini . . .
akhirul kalam . . wassalamu'alaikum warahmatullahi wabarakaatuih :)
