Cara Mengedit Worksheet Yang Diprotect dengan Password

Suatu hari saya mendapat tugas dari Kepala Sekolah untuk mengisi Instrumen Penilaian Kinerja Guru ( PKG ). Langkah pertama yang saya lakukan adalah download file Instrumen PKG.
Saya berhasil download file tersebut yang berformat xlxs atau file excel
Ketika saya membuka dan mencoba mengedit file tersebut , saya tidak dapat lakukan editing file tersebut. Ternyata file ini diprotect dengan pasword.
Bagaimana cara membongkar Passwordnya?..... yuk kita ikuti langkah yang saya lakukan
Langkah-Langkah Membuka Unprotection Sheet
Pertama
Buka file yang diprotect dengan pasword tersebut
Kedua
Tekan tombol ALT + F11 padakeyboard, hingga terbuka halaman Microsoft Visual Basic seperti gambar di bawah ini

Langkah ketiga
Pada halaman visual basic, klik menu Insert >Medule hingga terbuka halaman kosong seperti gambar di bawah ini

Langkah keempat

Copas teks di bawah ini kedalam halaman kosong tadi dengan cara : blok teks di bawah ini, kemudian tekan tombol ctrl+C ( copy )

Sub PasswordBreaker()

'Author unknown but submitted by brettdj of www.experts-exchange.com

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)

ActiveWorkbook.Sheets(1).Select

Range("a1").FormulaR1C1 = 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

kembali ke module yang kosong tadi ,kemudian tekan tombol Ctrl+V ( Paste ) pada halaman kosong module visual basic. selanjutnya klik save, tutup halaman visual basic

Langkah kelima

Kembali ke sheet yang diproteks dengan password.

Tekan tombol Alt+F8 pada keyboard, hingga terbuka kotak dialog macro seperti gambar di bawah ini

Selanjutnya klik Run

Nah,.. setelah klik run maka akan ditampilkan kotak dialog yang menunjukkan password untuk mengedit sheet tersebut.

Selamat mencoba, semoga postingan ini bermanfaat

Read More

Cara membuka Sheet Excel yang tersembunyi

Mungkin anda pernah membuka file excel yang tampak hanya satu sheet saja. Padahal file excel tersebut terdiri dari banyak sheet seperti contoh seperti di bawah ini

Bagaimana cara membuka semua sheet yang tersembunyi ?

Pertama 

Klik tombol Office Button yang terdapat pada pojok kiri atas halaman excel , hingga muncul kotak dialog seperti gambar di bawah ini.

Kedua

Pilih dan klik tombol Excel Options, hingga terbuka halaman option excel seperti gambar di bawah ini

Ketiga

Pada kolom sisi kiri klik menu Advanced, dan pada kolom sisi kanan geser ke bawah hingga menemukan  kotak pilihan Show Sheet Tab . Beri tanda centang dengan cara klik pada kotak tersebut, selanjutnya klik OK

Tara.....sekarang semua sheet ditampilkan pada lembar kerja anda

Selamat mencoba

Read More