Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Menü rechte Maustaste ausschalten
13.01.2009 09:27:00
MAS
Guten morgen zusammen,
ich habe eine Excel Tabelle, bei der ich - bei Rechtsclick der Maus - eine Userform anzeige.
Das funktioniert auch soweit - allerdings wird dabei auch die WindowsFunktion aktiviert (rechte Maustaste ... Ausschneiden, Kopieren, Einfügen....
Kann man die irgendwie ausschalten?
Schon im Voraus vielen Dank für Eure Hilfe.
Manfred

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Menü rechte Maustaste ausschalten
13.01.2009 09:34:00
Hoffi
Hallo Manfred,
mit Application.CommandBars("Cell").Enabled = False Kontextmenü ausschalten
und mit Application.CommandBars("Cell").Enabled = True wieder einschalten.
Grüße
Hoffi
AW: Menü rechte Maustaste ausschalten
13.01.2009 09:41:34
MAS
Hallo Hoffi,
danke für die rasche Antwort.
AW: Menü rechte Maustaste ausschalten
13.01.2009 09:41:00
Hajo_Zi
Hallo Manfred,
Du möchtest es ja noch anzeigen. Lösche die vorhandenen Einträge Clear. Denke nur dran bei Wechsel der Dattei und schließen Reset.

Cancel = True (in RightClick Sub!) (oT)
13.01.2009 09:45:00
RS

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

Anzeige

19 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige