Sehubungan
dengan cukup banyak rekan
sahabat yang menanyakan cara membuka protect sheets atau password pada
setiap
sheets excel, karena sering ditemukan file excel yang diprotect oleh
pembuatnya. Pada posting ini saya coba sharekan 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 cara membuka protect sheets excel tanpa password, 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
Langkah kedua cara membuka protect sheets excel tanpa password, setelah terbuka jendela seperti di atas masukan kode di bawah
ini
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, kode script di atas harus dicopy seluruhnya dari kata Sub InternalPasswords() sampai dengan End Sub.
Sehingga pada layar akan tampak seperti ini
Langkah ketiga cara membuka protect sheets excel tanpa password, klik TOOLS (yang ada
di atas) kemudian pilih MACROS. Maka akan tampak layar seperti ini
Selanjutnya Anda klik RUN dan tunggu
beberapa saat sampai proses selesai. Setelah itu Anda keluarkan layar Microsoft
visual basic dengan mengklik tanda close (x) yang ada di pojok kanan atas atau
dengan mengklik FILE (dipojok kiri) lalu pilih COLES AND RETURN TO MICROSOFT EXCEL, insya
Allah protect sheet sudah hilang.
Untuk membuka protect sheet pada
sheet-sheet yang lain lakukan dengan langkah yang sama.
Bagi Anda yang akan mencoba saya sarankan SAVE AS dulu file excel yang akan diedit dan gantikan dengan nama file yang lain. Untuk yang sudah mencobanya ditunggu komentar dan sarannya di bagian rubrik komentar
sumber : ainamulyana.blogspot.com
0 Comments
