Disabling Save As

R

Ron de Bruin

Hi Andrew

Try this events in the ThisWorkbook module
It will disable it when you activate the workbook and restore it when
you close it or select a other workbook

Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=748, Recursive:=True).Enabled = False
End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=748, Recursive:=True).Enabled = True
End Sub
 
Top