Minggu, 26 April 2020

CARA MEMBUKA SHEET EXEL YANG DI PASSWORD ATAU DI PROTEKSI


Saat kita berselancar di dunia internet untuk mencari info yang kita inginkan seringkali kita mendownload aplikasi maupun data yang kita butuhkan.
Salah satu contohnya  adalah saat kita mendownload suatu data yang berbentuk exel dan data tersebut setelah kita buka ternyata tidak dapat di edit secara keseluruhan.
Hal tersebut bukan karena kesalahan yang terjadi pada computer anda melainkan orang yang memiliki data tersebut telah mengunci atau memproteknya dengan memasangkan password yang tidak bisa untuk kita jangkau.
Kejadian di atas pernah juga saya alami sehingga membuat saya jengkel karena sudah capek-capek mendownload dan paket data yang sudah banyak tercurah hanya untuk mengambil data yang tidak bisa di edit. Dengan kejadian itulah maka pada kesempatan ini saya ingin berbagi cara untuk membobol password exel yang terprotek agar anda bisa mengedit dan memainkannya sesuka hati anda.
Agar tidak membuang-buang waktu Baiklah langsung saja saya jelaskan cara membuka sheet excel yang diproteksi.

File excel yang sheet-nya di protect biasanya tidak bisa di edit sama sekali, semua click seolah tidak berfungsi, pada tab “review” coba anda cek, apabila ada icon file excel bertuliskan unprotect sheet, itu tandanya sheet tersebut di proteksi oleh pemiliknya atau proteksi dalam keadaan aktif,
untuk lebih jelasnya lihat screen shoot berikut ini, gambar di bawah ini memperlihatkan file excel yang sheetnya di proteksi/dipassword sehingga kita tidak bisa meng-editnya :



Untuk cara membuka protek tersebut maka yang harus anda lakukan adalah :
-       Klik kanan sheet exel yang terprotek
-       Kemudian pilih” view code”
-       Kemudian akan tampil seperti gambar di bawah ini
-       Selanjutnya copy pastekan kode berikut ini  pada module baru tersebut (copy dan paste     mulai dari ” Sub InternalPasswords()” sampai dengan “end sub”) :

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

Tampilannya seperti gambar berikut:
-       Selanjutnya klik pada sheet yang akan kita buka proteksinya pada pilihan sebelah kiri.
-       Kemudian pilih menu “Run” seperti pada gambar di bawah ini

-       Kemudian pilih “Run macro”
-       Kemudian pilih sheet yang akan di buka proteknya dan selanjutnya klik “Run”
-       kemudian tunggu beerapa saat hingga proses pembukaan proteksi secara otomatis berakhir
-     jika sudah berakhir, silahkan tutup tampilan view code tersebut dan buka kembali file exel yang terkunci tadi,
-       hasilnya taraaaaaaaa………exel sudah tidak terprotek lagi.
Silahkan edit dan mainkan sesuka anda.

-       Jangan lupa untuk mensave setiap sheet exel yang sudah di buka proteknya
-       Lakukan semua cara di atas untuk membuka tiap-tiap sheet yang terprotek.

Sekian tutorial cara membuka proteksi pada sheet exel yang terprotek,semoga artikel ini bermanfaat buat anda yang membutuhkannya.