Tabellenblätter absichern

ich würde ein Tabellenblatt gerne so absichern, dass es absolut keine Möglichkeit mehr zur Veränderung gibt - also alles ausblenden.

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

ist schon ziemlich der Idealzustand. Nur erscheint dann immer noch die Möglichkeit zum Umschalten auf Fenstermodus. Wie bekomme ich diese Leiste auch noch weg? Oder gibt es noch andere/zusätzliche Möglichkeiten zur Absicherung? Vielen Dank für eure Hilfe!

lg Hannes