I have the following sampe workbook (see attached) that select some worksheets and email the new workbook to a given email. What I would like to be added to this is that it should save a copy to a given directory with password protection and email that save file with the password protection.

I do not now how to incorporate the following code:

[vba] ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Jahar\My Documents\test.xls", FileFormat:=xlNormal _
, Password:="test", WriteResPassword:="test", ReadOnlyRecommended:=False _
, CreateBackup:=False
[/vba]


Please help

Many thanks