Save As Restrictions

[jrisebo]

We keep our files in a shared network folder. Users can open the spreadsheet, and then should save as to a separate location. Our IT department wont restrict the folder to read only, so anyone can overwrite the files inside it. I want to eliminate one way to do that by having code in the file not allowing the spreadsheet be saved in the folder. Anyway to do that?

 

[jrisebo]

I have never created code that deletes other code. I know people have done it, but I have never ventured into that.

One option you could do is update some "flag" somewhere, i.e. update some unused cell with some value.
Then, you could add an IF statement to my code that exits if the value is equal to something, i.e. put at the top of that code:

If Sheets("Sheet1").Range("A1") = "some value" Then Exit Sub

So if that flag field was some value of your determining, the code would exit before it gets to the part that does all the work.

Perfect, I will give that a try.