Lo más que puedes hacer es quitar las barras de herramientas, pero el menú no se puede porque está protegido.
Esto quita las barras de herramientas
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
y esto las vuelve a poner.
Application.DisplayFullScreen = False
He intentado desproteger el menú pero, aún desprotegido no lo quita, es más, hasta dá un error, prueba
Application.CommandBars("Worksheet Menu Bar").Protection = msoBarNoProtection
Application.CommandBars("Worksheet Menu Bar").Visible = False
'Aquí te dará un error
Luego deberás dejarlo como estaba:
Application.CommandBars("Worksheet Menu Bar").Protection = msoBarNoChangeVisible
Suerte
Josetxu