Sub SacaClaves()
    Dim Contraseña As String
    Dim i01 As Integer, i02 As Integer, i03 As Integer
    Dim i04 As Integer, i05 As Integer, i06 As Integer
    Dim i07 As Integer, i08 As Integer, i09 As Integer
    Dim i10 As Integer, i11 As Integer, i12 As Integer
    On Error Resume Next
    For i01 = 65 To 66: For i02 = 65 To 66: For i03 = 65 To 66
    For i04 = 65 To 66: For i05 = 65 To 66: For i06 = 65 To 66
    For i07 = 65 To 66: For i08 = 65 To 66: For i09 = 65 To 66
    For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126
        Contraseña = Chr(i01) & Chr(i02) & Chr(i03) & Chr(i04) & Chr(i05) & Chr(i06) & Chr(i07) & Chr(i08) & Chr(i09) & Chr(i10) & Chr(i11) & Chr(i12)
        ActiveSheet.Unprotect Contraseña
        If ActiveSheet.ProtectContents = False Then
            Debug.Print Contraseña
            MsgBox "La contraseña encontrada es " & Contraseña
            Exit Sub
        End If
    Next: Next: Next
    Next: Next: Next
    Next: Next: Next
    Next: Next: Next
End Sub