Prevent Save, enable SaveAs with default file name

hello all VBA/Excel experts, I am new to this forum and asking for your help. Here is what I am trying to do:
1) if a user clicks Save or Ctrl-S, a message should come up saying that this is not allowed, as it would overwrite the existing file (this works)
2) if a user clicks Save As, it should suggest a default file name (Consisting of a value in a cell + date) and it should save the file with either the suggested name or a new name (this does not work, a message from Step 1 comes up). Below is the code. Thank you so much for your help and have a great day.

Please Login or Register  to view this content.

hello shg,

1. What keeps the user from using the SaveAs dialog to save over the original file? Why not just make the file read-only?

Yes good idea, I will make it read-only. I would still like to have the message box appear if a user clicks save.

2. Once the user does a SaveAs to another filename, they are still precluded from doing a Save. Is that your intent?

This is exactly my problem. I would like the user to be able to save the file if they go through SaveAs, but not if they go through Save. Thank you.

Hello shg:

So -- the file is named "Bob". I dutifully save the file as "Joe". After that, I'm still not allowed to just press Save to resave "Joe"?

If this was possible, that would be great. The process would then be:
1. Open Bob
2. If save Bob, not allowed
3. If save as Joe, allowed
4. If save Joe, allowed
Thank you!

Dora,
I ran across this thread and it looks like what I am trying to accomplish with my spreadsheet. Did you ever get this resolved and if so what was the code you used?

Thanks