How to Unprotect Sheet Excel

Tolong gunakan dengan bijaksana

• Pertama buka file excelnya Masuk ke SHEET yang diprotect 
• Tekan Alt+F11 (anda akan masuk ke VBE-Visual Basic Editor) 
• Tekan Insert Module Masukkan kode di bawah ini di jendela sebelah kanan 

1. Tutuplah VBE (Alt Q) - atau simpanlah. 
2. Lalu jalankan macronya dengan mengklik tab Developer - Macros - Password Breaker

Sub PasswordBreaker()   

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

Microsoft Excel : Actifkan Macro 2010

Untuk Pemula membuat Macro di Excel 2012 1. Klik tab file ==> pilih option ==> klik Customize Ribon ==> ceklist Developer ==> klik ok