Habe dir soeben eine Datei geschickt, die folgenden Code enthält.
Private Sub CommandButton1_Click()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
End Sub
Private Sub CommandButton2_Click()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFullScreen = False
End Sub
Vielleicht bekommst du die Menu damit wieder hin.
Rechte Maustaste hört sich für mich nach einem...
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
End Sub
an. Ist allerdings Tabellenbezogen und sollte somit kein Problem sein.
Gruss
Chris
https://www.herber.de/forum/messages/245446.html
gruss thomas