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.
Semoga Bermanfaat ^_^
Terima kasih
FILE SAMPAH
Terima kasih
FILE SAMPAH
LEBIH BERGUNA UNTUK DI DAUR ULANG
0 comments:
Post a Comment