In Calif

Create a macro that protects then saves your file. If the file already
exists this should do the trick:

Sub ProtectSave()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

Note: This does not assign a password to unprotect the file. If you do not
wish to exit the workbook at the time of Save, delete the 'Close' statement.

--
Regards...


"In Calif" wrote:

Hi,

How can I have any new input into the file to be locked at the time of
saving, so the data can't be changed on the next time the file is opened
again. Thanks for the help!

In Calif