AW: Menü rechte Maustaste ausschalten
13.01.2009 09:49:00
Tino
Hallo,
hiermit kannst Du alle Button im Menü rechte Maus ausblenden,
Deinen Button musst du eintragen damit dieser Sichtbar bleibt.
Dim i As Integer
For i = 1 To Application.CommandBars("cell").Controls.Count
'hier Deinen Button für die Userform eintragen damit dieser Sichtbar bleibt
If Application.CommandBars("cell").Controls(i).Caption <> "Dein Button" Then
Application.CommandBars("cell").Controls(i).Visible = False
End If
Next i
Hiermit kannst Du alles zurücksetzen
Dim i As Integer
For i = 1 To Application.CommandBars("cell").Controls.Count
Application.CommandBars("cell").Controls(i).Visible = True
Next i
''oder so**********************************************
''alles Zurücksetzen, auch Dein Button ist nicht mehr da
'Application.CommandBars("cell").Reset
Gruß Tino