Command bars

Sub AusBlenden()
CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
'ActiveWorkbook.Protect Windows:=True
End Sub

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

Wie mach ich das (Anfänger), das die Symbole für Drucken, Speichern und Schliessen trotzdem noch sichtbar sind.
Wer kann mir helfen ?