Good morning Arunjoshi

This code should help:

Sub Save1()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Book4.xls", Password:="password1"
Application.DisplayAlerts = True
Application.Quit
End Sub

When called this macro will save the file Book4.xls to the location C:\
with the password set as password1, irrespective of whether or not
another password was set to the file. The Application.Quit command
will then close Excel.

HTH

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=379593