Untuk file yang BISA Anda buka, coba ini.
Jika Anda tidak melihat "pengembang" di bilah alat Anda:
Klik gambar tombol Microsoft Office Button Office, dan kemudian klik Opsi Excel, Opsi PowerPoint, atau Opsi Kata.
Klik Populer, lalu pilih tab Tampilkan Pengembang di kotak centang Pita.
Tekan Alt + F11 (atau klik Visual Basic di tab pengembang) untuk membuka editor VBA. Buat makro baru dengan mengklik panah di sebelah tombol dengan penggaris di atasnya:
Salin kode berikut dan rekatkan ke modul baru Anda:
Sub PasswordBreaker()
'Author unknown
'Breaks worksheet password protection.
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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Ctrl + S untuk menyimpan, lalu tutup editor VBA.
Di buku kerja Anda, buka tab pengembang dan klik pada makro. Pilih PasswordBreaker dan klik Jalankan.
Saya telah menguji ini di beberapa lembar kerja yang berbeda dan sepertinya berhasil. Jarak tempuh Anda mungkin beragam.