Bagi teman2 yang ada masalah dengan password unprotected sheet. ms. excel ( yg udah dicoba ms.excel 2007) mungkin lupa password atau apalah, berikut ini ada cara untuk mendapatkan passwordnya :
1. buka file yang mau di unprotect passwordnya
2. tekan Alt + F11
3. pilih menu insert - module
4. langsung masukkan script berikut
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. tutup menu vba nyadengan meng klik tombol X pojok kanan monitor
6. setelah itu muncul ms. excel lalu pilih menu view -> macros ->view macros->run
7. tunggu hingga keluar passwordnya,( atau bisa juga lihat password di kolom A1)
Gunakanlah dengan bijak, jangan di pakai untuk merugikan diri sendiri apalagi merugikan orang lain.
OK. sekian dulu slamat mencoba
