Saving Workbook with Password using SaveChange

[Mouimet]

Hi
The macro create different files and replace the existing files quietly when
the user
close the main file. I dont want the user to see a box asking to replace the
files.
My problem is, one of them need to be save with a password to open.
I tried ActiveWorkbook.Protect ("Password") before the line
Activeworkbook.close
and it doesn't work. I tried after, ssame thing.
I think my problem is when I use the saveChange.
Do you have a solution. Thanks
Here part of the macro I'm using:
==========
' save file telephones

Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=True,
Filename:="G:\2009\Infos\Telephones.xls"
Application.DisplayAlerts = True

' macro continue

 

[Dave Peterson]

This worked for me in xl2003:

Option Explicit
Sub testme()
With ActiveWorkbook
.Password = "hi"
.Close savechanges:=True
End With
End Sub

 

[Mouimet]

Thanks it's working fine. Have a nice day

This worked for me in xl2003:

Option Explicit
Sub testme()
With ActiveWorkbook
.Password = "hi"
.Close savechanges:=True
End With
End Sub