CARA MEMBUKA PROTECT SHEET PADA EXCEL TANPA MEMASUKKAN PASSWORD

Terkadang kita mendapat suatu pekerjaan yang mengharuskan kita menggunakan aplikasi oleh/dari pihak tertentu, tapi dalam pengerjaan seringkali mendapat kendala. Misalnya, ditengah-tengah memasukkan data, ternyata ada yang error (namanya juga buatan manusia, seringkali tidak sempurna kan ya), tapi ternyata eh ternyata Ms. Excel tersebut tida bisa diedit. Seperti yang terjadi pada di bawah ini:

 

MENGAPA????? WHY????? OUTOKKEEEEEE??????

Kalian ingin membuka dengan password, tapi apa yang terjadi, ternyata kalian lupa atau bahkan tidak tahu passwordnya apa. And then, kalian menjadi malas untuk melanjutkan pekerjaan itu lagi.

Tenang-tenang wahai saudaraku, disinilah saya hadir untuk menjawab pertanyaan dan doa kalian selama ini.

Berikut adalah hal-hal yang harus dilakukan:

      1. NIAT (ini penting banget)

       2. Membuka sheet yang diprotect

       3. Lalu klik kanan pada sheet yang masih diprotect dan pilih view code

    4.   Lalu akan muncul tampilan seperti ini,

 

        5. Nah disinilah kalian harus memasukkan script dibawah ini pada tampilan nomor 4 tersebut

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

      6. Setelah kalian memasukkan script tersebut, klik tools pada menu bar dan pilih macros

 

       7. lalu akan muncul tampilan seperti dibawah ini, maka klik Run

 

      8. tunggu sampai proses running selesai

9.      9. jika sudah, maka tutuplah dengan melakukan hal dibawah ini,

         10. InsyaAllah, Sheet sudah unprotect, maka dari itu kita ucapkan Alhamdulillah..

Begitulah, semoga bermanfaat.

Tinggalkan komentar anda !! (sedikit memaksa)