Terima kasih atas kunjungannya dan kami mohon untuk mengisi buku tamu dan meninggalkan komentar demi kemajuan blog ini, kunjungi juga channel youtube kami di Nid@ Channel atau WA 085233347483

Jumat, 22 Maret 2013

Cara membuka password excel sheet

1. File excel yang sheet-nya di protect biasanya tidak bisa di edit sama sekali, semua click seolah tidak berfungsi, pada tab “review” coba anda cek, apabila ada icon file excel bertuliskan unprotect sheet, itu tandanya sheet tersebut di proteksi oleh empunya atau proteksi dalam keadaan aktif.
2. Untuk memasukan script VBA lihat bagian sebelah bawah kiri pada tab sheet yang di protect, klik kanan dan pilih “view code” akan terbuka jendela baru secara otomatis (Microsoft visual basic), atau bisa juga dengan cara menekan tombol kombinasi “Alt + F11″ di lanjutkan klik insert/module, apabila di bagian tengah sudah muncul jendela baru/module berarti langkah anda sudah benar cara membuka password excel sheet.

Code VBA membuka password excel sheet
3. Selanjutnya cara cara membuka password excel sheet Pada jendela module, copy pastekan kode berikut ini (copy dan paste mulai dari ” Sub InternalPasswords()” sampai dengan “end sub”) :

Copy dan paste code berikut 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
4. Membuka password excel sheet selanjutnya Lihat bagian kiri atas lembar kerja, highlight atau klik pada sheet yang akan kita buka proteksinya.
5. Klik tab Tool/Macros/Internal Password/run
6. Tunggu beberapa saat dan klick icon Microsoft Excel di pojok kiri atas atau “Alt + F11″ untuk kembali ke lembar kerja, kini file excel yang di proteksi tersebut sudah bisa di edit sesuka hati anda ! lihat juga pada tab “review” kini icon sheet sudah bertuliskan protect sheet sebagai tanda sudah tidak di protect lagi.

1 komentar:

  1. saya sudah coba kenapa kode tidak bisa run, keluar perintah synyax error

    BalasHapus

Monggo dikomentari