remove sheet password excel

holaaa..

udah lama ga nge post nih coy.. *ngomong sendiri

berhubung tadi ada yg minta tulung editin excel yg di password,
terus browsing eh ketemu caranya nge remove sheet excel yang di password..
gampang ternyata..

lo klo udah kenal yg namanya Macro excel pasti bisa..

caranya lo pencet alt+f11
abis itu keluar tampilan vba..
nah lo tambahin dah tuh add modul di klik kiri pada konten sebelah kiri

nih lo copas kodenya..


Sub PasswordBreaker()
    '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


Sumber ane dapet dari sini terimakasih : http://ghozalibumiayu.blogspot.com/2013/10/cara-unprotect-sheet-microsoft-excel.html#ixzz3KFmp3UoU