Shortening VBA Code

[Glaswegian]

I've been reading some postings on shortening code length, but I'm not sure if I can shorten the following:

I need to make sure users have access only to selected menu bar/pop-up menu items. A small selection is below:

With Application
.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Share Workbook...").Enabled = False
.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Protection").Enabled = False
.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Macro").Enabled = False
.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Options...").Enabled = False
CommandBars("Worksheet Menu Bar").Controls("Edit").Controls("Delete...").Enabled = False
.CommandBars("Worksheet Menu Bar").Controls("Edit").Controls("Clear").Enabled = False
.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Page Setup...").Enabled = False
.CommandBars("Cell").Controls("Delete...").Enabled = False
.CommandBars("Cell").Controls("Insert...").Enabled = False
.CommandBars("Cell").Controls("Format Cells...").Enabled = False

Is there some other way - other than using 'with' to shorten this? Would 'case' be of use - although I've only used it once before!

Cheers.

 

[santeria]

This is from the VBA cd... It basically takes out everything, I think.
Anyway, it may be a point to start from :

'Place the code below into the worksheet module
Private Sub Workbook_Open()
'    MsgBox "Alles ausblenden"
'    Call AusBlenden
'    MsgBox "Alles einblenden"
'    Call EinBlenden
End Sub

 'Place the code below into the standard module
Sub OutOfscreen()
    CommandBars("Worksheet Menu Bar").Enabled = False
    Application.DisplayFullScreen = True
End Sub

Sub Onscreen()
    ActiveWorkbook.Unprotect
    CommandBars("Worksheet Menu Bar").Enabled = True
    Application.DisplayFullScreen = False
End Sub

Sub Auto_Open()
    MsgBox "All out screen"
    Call OutOfscreen
    MsgBox "All from screen"
    Call Onscreen
End Sub

It has some separate components that you can either modify or exclude.

 

[NateO]

You're really concerned that someone will take the workbook into shared mode?

Realize, none of this dummy proof, Excel's very insecure.

Perhaps kill the whole thing and create your own interface via buttons.

 

[Glaswegian]

Thanks to both - I'll keep working at it.

Regards
Glaswegian