proteger l'ouverture d'un fichier

[WITER]

Bonjour à tous, je cherche un moyen pour proteger l'ouverture de mon fichier excel.

J'ai déja cette macro à l'ouverture du fichier
Je cherche à rajouter le mot de passe "MON CODE"
pour pouvoir acceder au fichier excel et que la macro s'execute.
Merci , d'avance pour votre aide


Private Sub Workbook_Open()
'
' Macro2 Macro
' Macro enregistrée le 07/08/2006
'

'
Sheets("Inv").Select
Range("A3:L1000").Select
Selection.ClearContents
ChDir "C:\Documents and Settings\"
Workbooks.Open Filename:="P:Query1.XLS"
Range("A2:L1000").Select
Selection.Copy
Windows("MOIS.xls").Activate
Range("A3").Select
ActiveSheet.Paste
Columns("I:I").Select
Selection.TextToColumns Destination:=Range("I1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 1)
Sheets("Taux").Select
ActiveWorkbook.Save
End Sub

 

[ERIC S]

Re : proteger l'ouverture d'un fichier

Bonjour

enregistrer sous
outils
options générales
...