Compléments pour Microsoft Access

http://access.fr.free.fr/

Ajout Password Excel (Automation)

Description 

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

 
Synthaxe 

AddPassWord (strDir, strDirDest)

La synthaxe de la fonction AddPassWord comprend les éléments suivants :

ElémentsDescription

strNomFile

Expression de chaîne correspondant au chemin complet et au nom du fichier Excel pour lequel on souhaite ajouter un mot de passe.
strPassWordExpression de chaîne correspondant au mot de passe que l'on souhaite ajouter au fichier Excel.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


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