Can I remove the Options menu?

[Mr Nick]

Is there a quick way to remove/lock access to the Tools -> Options Menu on a workbook so that users cannot alter general settings?

 

[Dave Hawley]

Hi Nick


Right click on the Excel icon, top left next to "File" and paste in this code:

Private Sub Workbook_Activate()

Application.CommandBars("Worksheet Menu Bar").Controls _
("Tools").Controls("Options...").Enabled = False

End Sub


Private Sub Workbook_Deactivate()

Application.CommandBars("Worksheet Menu Bar").Controls _
("Tools").Controls("Options...").Enabled = True

End Sub

Then click the top right X to return to Excel and Save! Now close and re-open, as long as the Workbook is active the "Options" menu will not be enabled.

 

[Mr Nick]

Thanks for that!