Sub PasswordBreaker()
    'Crack excel passwords, created by EonaCat (Jeroen Saey)
    
	Dim key1Try1 As Integer
	Dim key2Try1 As Integer
	Dim	key3Try1 As Integer
    Dim key1Try2 As Integer
	Dim	key2Try2 As Integer
	Dim	key3Try2 As Integer
    Dim key1Try3 As Integer
	Dim	key2Try3 As Integer
	Dim	key3Try3 As Integer
    Dim key1Try4 As Integer
	Dim	key2Try4 As Integer
	Dim	key3Try4 As Integer
	
    On Error Resume Next
    For key1Try1 = 65 To 66: 
		For key2Try1 = 65 To 66: 
			For key3Try1 = 65 To 66
    
	For key1Try2 = 65 To 66: 
		For key2Try2 = 65 To 66: 
			For key1Try3 = 65 To 66
    
	For key2Try3 = 65 To 66: 
		For key3Try3 = 65 To 66: 
			For key1Try4 = 65 To 66
			
    For key2Try4 = 65 To 66: 
		For key3Try4 = 65 To 66: 
			For key3Try2 = 32 To 126
			
    ActiveSheet.Unprotect Chr(key1Try1) & Chr(key2Try1) & Chr(key3Try1) & _
        Chr(key1Try2) & Chr(key2Try2) & Chr(key1Try3) & Chr(key2Try3) & Chr(key3Try3) & _
        Chr(key1Try4) & Chr(key2Try4) & Chr(key3Try4) & Chr(key3Try2)
    If ActiveSheet.ProtectContents = False Then
        MsgBox "Password: " & Chr(key1Try1) & Chr(key2Try1) & _
            Chr(key3Try1) & Chr(key1Try2) & Chr(key2Try2) & Chr(key1Try3) & Chr(key2Try3) & _
            Chr(key3Try3) & Chr(key1Try4) & Chr(key2Try4) & Chr(key3Try4) & Chr(key3Try2)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub