Cara Membuka Protect Sheets Ms Excel

 

Contoh Ms Excel yang Sheets nya di Protect atau di Password/di Kunci

Assalamu'alaikum Warrahmatullahi Wabarrakatuh.
Selamat Berjumpa kembali dengan Library Guru.

kali ini Library Guru akan share tentang Cara Membuka Ms Excel yang di Protect atau di Password atau juga di Kunci oleh pembuatnya. Mengapa membahas dan share ini karena banyak teman yang menanyakan hal ini. Maka dari itu silahkan simak cara atau trik untuk membuka Ms Excel yang di password atau di kunci tersebut baik di Ms Excel 2007 bisa juga di Ms Excel 2010.

Langkah pertama :

Klik kanan pada nama sheets file yang ada dibagian bawah, seperti sheets 1, sheets 2, dst, pilih VIEW CODE atau bisa juga tekan tombol kombinasi ALT + F11, maka akan terbuka jendela microsocf visual basic lalu pilih Insert MODULE. Maka akan terlihat gambar seperti di bawah ini.

Langkah kedua :
Setelah terbuka seperti pada gambar di atas letakkan kode di bawah 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

 


Disarankan, seluruh kode script di atas harus dicopy jangan sampai terlewat.
Sehingga akan kelihatan seperti pada layar di bawah ini.

Langkah ketiga :
Klik TOOLS posaisinya ada di atas, lalu pilih klik MACROS.
Maka akan telihat pada tampilan seperti pada layar di bawah ini.

Kemudian klok RUN dan tunggu sampai proses selesai.
Selanjutnya keluarkan layar Microsoft Visual Basic dengan cara mengklik tanda X (close) yang ada di psisi pojok kanan atas, atau mengklik FILE yang ada di posisi pojok kiri, kemudian klik CLOSE AND RETURN TO MICROSOFT EXCEL, maka PROTECT SHEETS susah hilang.

 Ingat : Bagi yang akan memperaktekan atau mencoba disarankan save dulu filenya yang akan diedit, ganti dengan nama file lain.
Demikianlah Trik Cara Membuka yang di Protect pada Sheets Ms Excel.
Selamat mencoba.
Semoga bermanfaat. Amin

Lebih baik bagikan dulu sebelum di download

Bagikan

Demikanlah artikel dan file yang kami bagikan ini, semoga dapat menjadi referensi dalam memudahkan pekerjaan Ibu dan Bapak Guru. Berikanlah komentar yang relevan demi perbaikan blog ini, agar dunia pendidikan kita lebih baik sesuai dengan tujuan yang diharapkan.

Tweet