Disabling functions in excel

[Sharid]

I wrote this code below to show the full screen in excel, (no tool bars showing) I also want to disable all the commands on the top command menu bar apart from the dropdowns in the file option.

i.e. all the commands from Edit to Help are disabled apart from the File option. on exit of excel I want them to be enabled.

Also not sure if this is possible but is there a way to disable the Close option in the file drop down menu, leaving the user with the option to click Exit. As Exit will close excel were as the close option allows the user to close the workbook. On exit every thing is enabled.

And my final request, the X in the top right hand corner is there a way to disable it and on exit of excel enable it?



Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
UserForm1.Show
End Sub



Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

 

[Sharid]

Thanks for this, it works a charm

 

[hatman]

Glad to help