[BARU] Cara Unprotect Sheet Microsoft Excel yang Terpassword - Pos Madrasah

[BARU] Cara Unprotect Sheet Microsoft Excel yang Terpassword

Artikel ini memang berjudul cara unprotect sheet excel tapi tujuan pembuatan artikel ini adalah sebagai penyimpanan memori saja.

Bukan kami mengajari anda untuk membuka proteksi excel.

Akan tetapi lebih untuk belajar dan mengembangkan ilmu bidang excel ini.

Kebetulan admin menyukai ilmu aplikasi termasuk excel. Admin pos madrasah juga pernah membuat aplikasi KTSP dengan belajar dari internet.

cara unprotect sheet excel yang terpassword
Cara unprotect sheet excel yang terpassword
Sebenarnya dari ilmu dari internet kalau kita ambil positifnya juga banyak manfaatnya.

Tetapi juga…

Kalau kita ambil sisi negatifnya juga banyak mudharatnya…

Saya sebagai tenaga administrasi madrasah memang kadang perlu kerja cerdas dan cepat. Di satu sisi kita harus belajar demi tuntutan keadaan.

Jadi ilmu harus terus diasah biar terus tajam.

Salah satu karya admin adalah raport KTSP yang dibuat dengan microsoft excel.

Juga begitu ilmu untuk membuat raport tersebut juga comat comot dari aplikasi yang tersebar di internet.

Akan tetapi aplikasi excel yang tersebar di internet kebanyakan di protect alias dipassword sehingga perlu penanganan kusus untuk membukanya.

Maka dari itu saya membutuhkan kode unprotect sheet excel.

Admin buatlah artikel ini untuk menampung kode atau rumus yang cocok untuk membuka protect excel.

Saran dari admin jangan gunakan cara ini untuk merugikan orang lain. Tetapi gunakan cara ini menambah ilmu anda sendiri.

Berikut cara membuka proteksi atau unprotect sheet excel

1) Buka file excel yang terpotect sheetnya
2) Kemudian anda tekan tombol Alt+F11 pada keyboard. untuk mengaktifkan layar kerja Microsoft Visual Basic. Kemudian Anda klik pilih menu Insert dan Module.
3) Anda copy kode dibawah ini dan paste-kan pada layar kerja Module yang tadi telah Anda aktifkan.
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) Klik pada sheet yang terdapat passwordnya
5) Kemudian klik tanda run macro atau tekan tombol F5
6) Maka akan tampil jendela macro pilih Internal passwords
7) Langkah terakhir klik tombol run

Jika tidak ada kendala maka run macro nya telah berhasil membuka password yang terprotect atau terpassword.

Cukup simpel membuka atau unprotect sheet excel yang terpasword asal kita tahu dan mau belajar pasti tahu jalannya.

Semoga artikel ini dapat berguna bagi saya sendiri kususnya karena untuk mengingat ingat terutama kode yang dibutuhkan.

Silhakan gunakan cara unprotect sheet excel ini dengan semestinya jangan digunakan untuk merugikan orang lain ya…

Semoga bisa bermanfaat dan membantu.
Comments

= > Silahkan berkomentar sesuai dengan topik artikel diatas
= > Berkomentar dengan url ( mati / hidup ) tidak akan di publish
EmoticonEmoticon