Selamat Datang di Blog SD Negeri 24/V Kuala Tungkal "Ayo Kerja"

Selasa, 18 Agustus 2015

Cara Membuka Proteksi Sheet Microsoft Excel tanpa password

Cara ini saya publikasi kepada teman rekan OPS untuk mengedit File yang di Berikan Oleh Dinas Pendidikan Tanjab Barat "SD MASTER PEMBAGIAN TUGAS Ver.15.7.3 + DUK" karna tidak bisa edit, di antara lain Kolom, menghapus kolom dll .. di sini saya memberikan sedikit solusi tanpa menggangu hasil settingan dari File dari Dinas

berikut ini adalah step by step membuka proteksi Sheet Excel dengan menggunakan VB Script:
  1. Buka file excel yang di proteksi
  2. Tekan tombol kombinasi “ALT+F11″
  3.  Klik Insert > module
  4. copy paste-kan 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
5. Klik pada sheet atau workbook yang akan kita buka password-nya
6. Klik Tools >Klik Macro > Show Macro > Internal Password > Run
7. Tunggu beberapa saat (tergantung besar kecil ukuran File)
8. Jika proses sudah selesai, maka anda sudah bisa mengedit file tersebut dengan leluasa. Untuk     mengecek apakah file masih terproteksi bisa juga dilihat di tab Review, maka icon Unprotect Sheet sudah berganti menjadi Protect Sheet. (untuk file yang lain dengan cara yang sama)
Terima kasih telah membaca di blog saya !! Mf kalau Blog nya masih kacau !

Tidak ada komentar:

Posting Komentar