Sub Macro1()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxxxxx\My Documents\Book1.xls", _
FileFormat:=xlNormal, Password:="fred", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub


"toolroomman" wrote:

Hi, i was wondering if it is possible to creat a macro and assign it to
a button that would save a file and protect it with a password when
clicking the button. what i am doing is opening a template and after
everything is done i need to save as and protect with password with
just a click of a button. any help would be greatly appreciated.