Hosting Murah

Hosting Unlimited Indonesia

Selasa, 16 Desember 2014

BUKU PANDUAN E-RAPORT K-13

Cara menampilkan password proteksi sheet pada Ms. Excel



Banyak di antara kita yang mendapatkan file excel untuk keperluan tertentu dengan proteksi sheet di dalamnya. Dengan di proteksi maka user atau kita yang meng-copy file tersebut tidak bisa melakukan perubahan atau yang edit yang lainnya di file tersebut.
Masalahnya adalah jika kita harus menambahkan atau memperbaiki file tersebut …. ?
Jalan satu – satunya adalah kita hilangkah proteksinya.
Berbekal petunjuk dari learn72. ini maka kita bisa dengan mudah menampilkan Password proteksinya.
Caranya dengan mengaktifkan Macro di Ms. Excel.
1. Buka file excel yang di password untuk proteksi sheet nya.
2. Tekan Alt + F11.
3. Klik Insert – Module
4. Paste kode di bawah ini .
Sub PasswordBreaker()
‘Breaks worksheet password protection.
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
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 ActiveSheet.ProtectContents = False Then
MsgBox “One usable password is ” & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Jangan melakukan perubahan pada kode di atas.
5. Jalankan dengan cara teken tombol F5
6. Tunggu beberapa saat, password akan di tampilkan dalam PopUp di file excel.
Selamat semoga berhasil dan bermanfaat.
sumber : disini