Cara Membuka Cell Excel Yang Diprotect Password Tanpa Software

Demi keamanan data yang telah dibuat, biasanya yang dilakukan oleh user yaitu dengan memberi password pada file yang dibuatnya. Dengan demikian maka tidak semua orang sanggup membuka file tersebut dan dipakai seenak hatinya sendiri. Data-data yang diprotect tersebut biasanya berupa data-data penting yang tidak semestinya diubah oleh orang yang tidak berkepentingan didalamnya. Pada data yang dibentuk di Ms Excelpun sanggup diprotect atau diamankan dengan diberi sandi atau password untuk sanggup mengedit atau merubahnya. Biasanya yang sering diberi password yaitu sel (cell) yang terdapat rumus tertentu yang dilarang dirubah sembarangan. Ketika anda akan mengubah data di cell yang diprotect, akan muncul jendela semoga memasukkan password

Password tersebut saat gres saja dibuat, akan aman-aman saja alias akan masih tetap teringat dikepala. Namun kalau file tersebut sudah usang tidak dibuka sebab terdapat file-file baru, maka sanggup jadi password atau sandi yang dulu dibentuk menjadi terlupakan. Akibatnya anda sendiri tidak sanggup edit file yang telah anda buat sendiri. Untuk mengatasi hal tersebut, anda sanggup memakai cara dibawah ini.

1. Buka file excel yang cellnya diprotect.
2. Tekan tombol Alt+F11, maka akan muncul jendela Microsoft Visual Basic For Application.
3. Klik insert lalu pilih Modul
   
   
4. Copy code dibawah ini dan paste di jendela modul yang muncul.
   
   

   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

5. Jika sudah klik save (atau simpan)
   
   
6. Masih di jendela Microsoft Visual Basic, klik sajian Tools lalu pilih Macros
   
   
7. Setelah itu muncul jendela macros dan klik run
   
   

Setelah itu muncul jendela macros dan klik run

Muncul popup dan klik OK

Selamat….. cell yang dikunci sudah sanggup dibuka kembali

Sumber http://rahmabasel.blogspot.com/