Annuler mot de passe Excel

Cette fonction permet d'annuler un mot de passe sur un fichier Excel par contre pour l'utiliser, il faut obligatoirement connaître le mot de passe en question.

L'argument "strNomFile" correspond au chemin complet et au nom du fichier dont on souhaite annuler le mot de passe et l'argument "strPassWord" correspond au mot de passe du fichier.

Function CancelPassWord(strNomFile As String, _
        strPassWord As String)

Dim appXl As Excel.Application

Set appXl = CreateObject(strAppXl)

With appXl
    .Workbooks.Open strNomFile, , , , strPassWord
    .Workbooks(strNomFile).SaveAs strNomFile & ".tmp", xlExcel7
    .Quit
End With

Set appXl = Nothing

Kill strNomFile
Name strNomFile & ".tmp" As strNomFile

End Function

Auteur : Jessy SEMPERE