Re: HILFE!!! Meine Menüs sind weg!
15.04.2003 17:51:39
ChrisL
Hallo MirkoHabe 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