Ya lo he solucionado. He seguido buscando hasta encontrar un código en VBA que hace exactamente eso. No recupera la clave original pero si una equivalente.
PEGAR EL SIGUIENTE SCRIPT EN EL CODIGO DE LA HOJA DESEADA
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