-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Disable Save as
- Thread starter staticbob
- Start date
SIXTH SENSE
Well-known Member
- Joined
- Oct 29, 2003
- Messages
- 1,883
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>
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>
Upvote
0
Chitosunday
Well-known Member
- Joined
- Jul 14, 2003
- Messages
- 1,023
Put this in a module then run this:
Sub disblesaveas()
CommandBars("File").Controls("Save As...").Enabled = False
End Sub
Sub disblesaveas()
CommandBars("File").Controls("Save As...").Enabled = False
End Sub
Upvote
0
Similar threads
- Solved
