AGUS SUSILO, S.Pd.
NIP. 19700818 199802 1 009
- Register Alumni
- Daftar Alumni

Share this article on

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
Share this article on :
Tutorial ini dibaca sebanyak 5810 kali
Baca Juga Tutorial Lainnya
- Mempercepat Dan Mengoptimalkan Proses Komputer Kita
- Mengembalikan PC yang Dibanned Oleh Gemscool Terbaru 2014
- Membuat Media Instalasi USB Bootable Dengan Rufus
- Cara mengatasi masalah koneksi Wifi Android.
- Cara Menyembunyikan Sebagian Kolom di Excel
- Gastra SMANSAL di Brigif 16 Wira Yudha Kediri [6179]
- Pemerintah Terbitkan Peraturan Menteri Bersama tentang Penugasan Guru PNS di Sekolah Swasta [2710]
- HUT Ke-22 SMA Negeri 1 Loceret Tanam 1000 Pohon [2472]
- Ponsel Android Bisa Nyalakan Mobil [2443]
- 3 Cara Mudah Update ke iOS 8 + Link IPSW [2305]
- Penerimaan Peserta Didik Baru Tahun Pelajaran 2016/2017
- Ujian Kenaikan Kelas 2015/2016
- Kegiatan Tangah Semester
- Kegiatan Inagurasi dan PTG
- Pondok Romadhon 1436 H Tahun 2015
- Jardiknas
- Depdiknas
- BSNP Indonesia
- Kabupaten Nganjuk
- KPU Nganjuk
- BNN Nganjuk
![]() |
Hari Ini | : 42 |
![]() |
Kemarin | : 61 |
![]() |
Bulan ini | : 1206 |
![]() |
Tahun ini | : 1206 |
![]() |
Now Online | : 1 Orang |
- IP address : 3.238.70.175
- OS : Unknown Platform
- Browser :