Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Ajout Password Excel
º Annuler PassWord Excel
º Attache Excel
º Imprimer fichier Excel
º Ouvrir fichier Excel
º Ouvrir fichier Word

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

Automation - Ajout Password Excel

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éments	Description
strNomFile	Expression de chaîne correspondant au chemin complet et au nom du fichier Excel pour lequel on souhaite ajouter un mot de passe.
strPassWord	Expression 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

Date de création : 30/10/2006 @ 12:20
Dernière modification : 30/10/2006 @ 14:03
Catégorie : Automation
Page lue 1456 fois

Prévisualiser la page Imprimer la page