Disable Save as

[staticbob]

Sorry guys, I have done a quick search but didn't find an answer . .

How do I disable save as in a workbook ? I dont want the file saved with a different filename because of extrernal links.

Cheers
Bob

 

[SIXTH SENSE]

hi!
try this.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_BeforeSave(<SPAN style="color:#00007F">ByVal</SPAN> SaveAsUI <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN>, Cancel As <SPAN style="color:#00007F">Boolean</SPAN>)
    <SPAN style="color:#00007F">If</SPAN> SaveAsUI <SPAN style="color:#00007F">Then</SPAN> Cancel = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[Chitosunday]

Put this in a module then run this:

Sub disblesaveas()
CommandBars("File").Controls("Save As...").Enabled = False
End Sub