MEMBUKA PROTECT SHEETS EXCEL TANPA PASSWORD

Senin, 01 Mei 2017 0 komentar


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

0 komentar:

Posting Komentar

 

©Copyright 2011 Rengkarnasiku | TNB