Untuk membobol pass Excel maka kita akan mengunakan script sederhana
yang ampuh untuk menghapus pass tersebut. Gunakan Tombol Kombinasi Short
Cut Untuk membuka Microsoft Visual Basic dengan menekan Tombol ALT +
F11, maka akan muncul jendela baru untuk Microsoft Visual Basic.
- Kemudian pada Tool Klik Insert/Module, maka akan Muncul File Module1
- Double Clik pada Module 1 maka akan muncul jendela baru untuk memasukkan script
- Copy Pastekan Script Berikut Ini Ke Excel anda: Mulai Dari Sub Internal s/d 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
Setelah itu selesai anda lakukan maka langkah selanjutnya adalah Runing Scirpt tersebut. caranya alihkan Kursor pada Sheet1 (atau sheet yang terkunci) kemudian tekan tombol F5 maka akan muncul jendela RUN. kemudian Klik saja RUN. Tunggu beberapa saat Sampai proses selesai dan setelah selesai maka File Excel yang ada Password Akan Hilang.
- Kemudian pada Tool Klik Insert/Module, maka akan Muncul File Module1
- Double Clik pada Module 1 maka akan muncul jendela baru untuk memasukkan script
- Copy Pastekan Script Berikut Ini Ke Excel anda: Mulai Dari Sub Internal s/d 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
Setelah itu selesai anda lakukan maka langkah selanjutnya adalah Runing Scirpt tersebut. caranya alihkan Kursor pada Sheet1 (atau sheet yang terkunci) kemudian tekan tombol F5 maka akan muncul jendela RUN. kemudian Klik saja RUN. Tunggu beberapa saat Sampai proses selesai dan setelah selesai maka File Excel yang ada Password Akan Hilang.
