Headline
Loading...

Membuka Password Excel Tanpa Software

Password tersebut ketika baru saja dibuat, akan aman-aman saja alias akan masih tetap teringat dikepala. Namun bila file tersebut sudah lama tidak dibuka karena terdapat file-file baru, maka bisa jadi password atau sandi yang dulu dibuat menjadi terlupakan. Akibatnya anda sendiri tidak bisa edit file yang telah anda buat sendiri. Untuk mengatasi hal tersebut, anda dapat menggunakan cara dibawah ini.
  • Buka file excel yang cellnya diprotect.
  • Klik Tab developer---klik pada ---View code---akan muncul seperti di bawah ini
  • Perhatikan Gambar beriku
















  1. opy 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
  2. Jika sudah klik save (atau simpan)

    code
  3. Masih di jendela Microsoft Visual Basic, klik menu Tools kemudian pilih Macros

    Macros
  4. Setelah itu muncul jendela macros dan klik run

    run
  5. Muncul popup dan klik OK
  6. Selamat….. cell yang dikunci sudah dapat dibuka kembali
di 09.46

1. Berikan Komentar Anda Sesuai dengan Judul Artikel.
2. Komentar yang menyertakan link aktif, iklan, atau titip link, akan dimasukan ke folder SPAM.
3. Untuk pertanyaan Out Of Topic ( OOT ) silahkan klik Forum

Konversi KodeEmotionForum

Back to Top