Ajouter mot de passe Excel


Cette fonction permet d'ajouter un mot de passe sur un fichier Excel.

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

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

Dim appXl As Excel.Application

Set appXl = CreateObject(strAppXl)

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

Set appXl = Nothing

Kill strNomFile
Name strNomFile & ".tmp" As strNomFile

End Function

 

Retour haut de page

Auteur : Jessy SEMPERE