Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopierfunktion abschalten in Menüleiste + Kontext

Forumthread: Kopierfunktion abschalten in Menüleiste + Kontext

Kopierfunktion abschalten in Menüleiste + Kontext
07.05.2005 18:07:38
Joerg
Hallo,
ich versuche verzweifelt mit dem unten stehenden Modul den Befehl "kopieren" aus dem Menü zu verbannen bzw. zu deaktivieren. Funktioniert aber nicht.
Auch Recherchen im Archiv haben nicht geholfen.
Application.OnKey "^{c}", ""
schaltet zwar die Strg C Funktion aus, aber mit der rechten Maustaste kann man weiterhin den Befehl kopieren ausführen.

Sub AusblendenVonMenuepunkten()
With Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten")
.Controls("Kopieren").Visible = False       ' bzw .Enable= False
End With
End Sub

Wer kann mir weiterhelfen ?
Danke Joerg
Anzeige

25
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopierfunktion abschalten in Menüleiste + Kont
07.05.2005 18:47:19
Joerg
Hallo,
das Makro

Sub MenüelementDeaktiviere()
MenuBars(xlWorksheet).Menus("Bearbeiten").MenuItems("Kopieren").Enable = False
End Sub

führt zu Fehlermeldung
Fehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht
was nun ?
Gruss Joerg
Anzeige
AW: Kopierfunktion abschalten in Menüleiste + Kont
07.05.2005 19:05:44
Speedy
Ne andere Idee wäre evtl. , eine Schleife im Hintergrund laufen zu lassen, die schaut ob etwas in die Zwischenablage kopiert wird. Wenn ja, wird der Wert durch "" (also nichts) ersetzt.
AW: Kopierfunktion abschalten in Menüleiste + Kont
07.05.2005 19:11:41
Joerg
Hi,
richtig, aber es laufen schon massig Schleifen im Programm und ich möchte nicht unbedingt noch eine hineinbauen,
die Lösung mit dem
MenuBars(xlWorksheet).Menus("Bearbeiten").MenuItems("Kopieren").Enable = False
erschien mir da wesentlich eleganter.
Gruss Joerg
Anzeige
Da brauchen wir mehr Hilfe von Profis
07.05.2005 19:18:54
Profis
Da fehlt mir leider die Kenntnis warum das nicht funktioniert. Ich habe einen eigenen Menüeintrag mal angelegt (Auch von der Seite) und den konnte man disabled schalten. Ich weiß noch nicht so recht woran das liegt aber vielleicht schaut ja nochmal jmd. hier über den Beitrag der mehr Ahnung hat wie wir :-)
Gruss Speedy
Anzeige
eine Teil-Lösung
08.05.2005 10:03:18
Speedy
Option Explicit
Public cBar As CommandBar

Private Sub Workbook_Open()
On Error Resume Next
'Kontext-Menü zur Bearbeitung von Zellen:
Set cBar = Application.CommandBars("Cell")
'CommandBarButtons deaktivieren:
cBar.Controls("Ausschneiden").Enabled = False
cBar.Controls("Kopieren").Enabled = False
cBar.Controls("Einfügen").Enabled = False
cBar.Controls("Inhalte einfügen...").Enabled = False
Application.CommandBars(1).Controls("Bearbeiten").Controls("Kopieren").Enabled = False
Application.CommandBars(1).Controls("Bearbeiten").Controls("Einfügen").Enabled = False
Application.CommandBars(1).Controls("Bearbeiten").Controls("Ausschneiden").Enabled = False
Application.CommandBars(1).Controls("Bearbeiten").Controls("Inhalte einfügen...").Enabled = False
Application.OnKey "^{c}", ""
Application.OnKey "^{x}", ""
Application.OnKey "^{v}", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""
'Drag & Drop ausschalten
Application.CellDragAndDrop = False
Application.CommandBars(3).Controls("Kopieren").Enabled = False
Application.CommandBars(3).Controls("Einfügen").Enabled = False
End Sub

Das dann evtl. noch mit dem von Nepumuk kombinieren und dann sollte es gehen
Gruss Speedy ;-)
Anzeige
AW: Kopierfunktion abschalten in Menüleiste + Kont
07.05.2005 19:55:33
Reinhard
Hallo Joerg,

Sub MenüelementDeaktiviere()
CommandBars(1).Controls("Bearbeiten").Controls(2).Enabled = True
End Sub

Gruß
Reinhard
Korrektur
07.05.2005 19:57:13
Reinhard
Hallo Joerg

Sub MenüelementDeaktiviere()
CommandBars(1).Controls("Bearbeiten").Controls("Kopieren").Enabled = False
End Sub

Gruß
Reinhard
Anzeige
AW: Korrektur
07.05.2005 20:19:45
Joerg
Hallo Reinhard,
Leider erhalte ich wieder eine Fehlermeldung wenn ich das unten stehende Makro aufrufe
Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt 

Sub MenueElementeDeaktivieren()
'MenuBars(xlWorksheet).Menus("Bearbeiten").MenuItems("Kopieren").Visible = False
CommandBars(1).Controls("Bearbeiten").Controls("Kopieren").Enabled = False
End Sub

Gruss Joerg
Anzeige
AW: Korrektur
07.05.2005 20:34:21
Joerg
Hi,
Application.CommandBars(1).Controls("Bearbeiten").Controls("Kopieren").Enabled = False
dieser Befehl entfernt Kopieren aus der Menüleiste, aber leider bleibt der Befehl bestehen,
wenn ich eine Zelle mit der rechten Maustaste anklicke.
Was nun ?
gruss Joerg
step by step*g
07.05.2005 23:52:34
Reinhard
Hallo Joerg,
ich habe jetzt nur nach dem Kopieren in Bearbeiten geschaut, inzwischen klappt das ja auch bei dir ohne Fehlermeldung?!
Mit dem Kontextmenü der rechtenmaustaste kriegen wir auch noch hin, aber heut nicht mehr .
Gruß
Reinhard
Anzeige
AW: step by step*g
07.05.2005 23:58:26
Hajo_Zi
Hallo Joerg,

Sub Zurueck()
CommandBars("Cell").Reset
End Sub



Sub Entfernen()
CommandBars("Cell").Controls("Kopieren").Enabled = False
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: step by step*g
08.05.2005 00:12:10
Joerg
Hi,
klasse, mit diesem Makro habe ich die Lösung, vielen Dank noch mal!

Sub Entfernen()
Application.CommandBars("Cell").Controls("Einfügen").Enabled = False
Application.CommandBars("Cell").Controls("Kopieren").Enabled = False
etc...
End Sub

Joerg
PS: nur interessehalber, kann man das Pulldownmenue der rechten Maustaste auch ganz abschalten ?
Anzeige
nicht wirkliche Hilfe aber sehr wichtig als Info
08.05.2005 00:25:53
Reinhard
Hallo Joerg,
ja, es geht, wie muss man noch rausfinden, aber schon gelesen habe.
Gruß
Reinhard
AW: step by step*g
08.05.2005 07:12:49
Hajo_Zi
Hallo Joerg,

Sub Aus()
CommandBars("Cell").Enabled = False
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
Danke
08.05.2005 07:55:42
Joerg
Guten Morgen,
Danke an alle die bei der Lösung geholfen haben
Gruss Joerg
AW: step by step*g
08.05.2005 02:03:19
Bert
0 Fehler = 1
Glückwunsch!
mfg Bert
AW: step by step*g
08.05.2005 00:00:55
Joerg
Hi Reinhard,
Du hast recht, es wird spät,
das Problem das Menue auszuschalten wenn die rechte Maustaste gedrückt wird (ausschneiden, kopieren, einfügen etc.) solten wir später lösen.
Besten Dank
Joerg
Anzeige
AW: Kopierfunktion abschalten in Menüleiste + Kontext
07.05.2005 22:48:07
Speedy
Hm... mal anders gesehen...
Was willst du denn vor dem Kopieren schützen?
Ist es eine Zelle?
Wenn ja, dann setz doch einfach nen Blattschutz mit der Option, dass man nur nichtgesperrte Zellen auswählen kann. Deine Formeln funktionieren trotzdem.
Willst du via VBA den Wert ändern, hebste eben den Blattschutz auf ... änderst ... und setzt ihn wieder.
Gruss Speedy
Anzeige
AW: Kopierfunktion abschalten in Menüleiste + Kont
07.05.2005 23:13:01
Joerg
Hi,
das Problem ist, das jeder in die Zellen schreiben darf, wer will auch löschen und neuschreiben. Ich habe in der Vergangenheit nur die Erfahrung gemacht, dass durch die Befehle Kopieren und Verschieben anschliessend Probleme beim Ausdruck eines Berichtes gibt, da Bezugsfehler auftreten.
Daraus folgt : Zellen beschreiben ja
Kopieren/ Verschieben nein
also jwegliche Kopier/ Verschieben Befehle sperren bei gleichzeitiger Möglichkeit die Zellen frei zu beschreiben.
Die Methode
"Willst du via VBA den Wert ändern, hebste eben den Blattschutz auf ... änderst ... und setzt ihn wieder."
benutzte ich schon, ist für mein Problem jedoch nicht geeignet
Gruss Joerg
Anzeige
Das leuchtet natürlich ein ...
08.05.2005 08:07:29
Speedy
Das is natürlich ein Problem ...
Also bleiben wir doch bei der Variante, das alles abgeschaltet wird.
Was fehlt denn noch?
Möglichkeiten:
- [Strg] + [C]
- [Bearbeiten][Kopieren]
- Symbol Kopieren
- Menü von rechter Maustaste
- direkt mit der Maus anklicken und Verschieben bzw. kopieren
Auch wenn viele Schleifen im Hintergrund laufen, vielleicht sollte man doch noch mal darüber nachdenken, ob es nicht sinnvoll wäre, den Wert der Zwischenablage zu ändern. Wobei ich auch nicht weiß, ob man nicht trotzdem das einfach kopieren bzw. verschieben kann.
Gruss Speedy
Anzeige
Kontextmenü abschalten geht so:
08.05.2005 08:31:58
Speedy
Moin Moin,
Folgendes kommt bei "DieseArbeitsmappe" rein (oder auch bloß einzelne Blätter):
Option Explicit
Public cBar As CommandBar

Private Sub Workbook_Open()
On Error Resume Next
'Kontext-Menü zur Bearbeitung von Zellen:
Set cBar = Application.CommandBars("Cell")
'CommandBarButtons deaktivieren:
cBar.Controls("Ausschneiden").Enabled = False
cBar.Controls("Kopieren").Enabled = False
cBar.Controls("Einfügen").Enabled = False
cBar.Controls("Inhalte einfügen...").Enabled = False
End Sub

Dann sollte es funktionieren ;-)
Gruss Speedy
Anzeige
AW: Kontextmenü abschalten geht so:
08.05.2005 08:42:50
Speedy
Gut, ich geb ja zu das ich hinterhänge.
SORRY
Hab da oben nich mehr durchgesehen was schon existiert und was nich. Wer lesen kann is klar im Vorteil.
Aber was jetzt noch fehlt, ist das abschalten vom kopieren wenn man mit der linken Maustaste und gedrückter [Strg]-Taste den Zellinhalt kopiert. Oder habt ihr das auch gelöst?
Gruss Speedy
Anzeige
AW: Kontextmenü abschalten geht so:
08.05.2005 09:40:46
Nepumuk
Hallo Speedy,
das reicht aber nicht. Alleine kopieren kommt in xl2000 in 31 verschiedenen Symbolleisten vor. Du musst alle disablen. Versuch es mal so:
Im Klassenmodul der Mappe:


Option Explicit
Private Sub Workbook_Activate()
    With Application
        .CellDragAndDrop = False
        .OnKey "^x", ""
        .OnKey "^c", ""
        .OnKey "^v", ""
        .OnKey "+{DEL}", ""
        .OnKey "+{INSERT}", ""
        .OnDoubleClick = "prcDoNothing"
        .CommandBars("Toolbar List").Enabled = False
        .CommandBars("Clipboard").Enabled = False
'        .CommandBars.DisableCustomize = True 'ab Excel 2002
    End With
    Call prcEnablaDisableControls(False, 19)
    Call prcEnablaDisableControls(False, 21)
    Call prcEnablaDisableControls(False, 22)
    Call prcEnablaDisableControls(False, 755)
End Sub
Private Sub Workbook_Deactivate()
    With Application
        .CellDragAndDrop = True
        .OnKey "^x"
        .OnKey "^c"
        .OnKey "^v"
        .OnKey "+{DEL}"
        .OnKey "+{INSERT}"
        .OnDoubleClick = ""
        .CommandBars("Toolbar List").Enabled = True
        .CommandBars("Clipboard").Enabled = True
'        .CommandBars.DisableCustomize = False 'ab Excel 2002
    End With
    Call prcEnablaDisableControls(True, 19)
    Call prcEnablaDisableControls(True, 21)
    Call prcEnablaDisableControls(True, 22)
    Call prcEnablaDisableControls(True, 755)
End Sub


In einem Standardmodul:


Option Explicit
Public Sub prcEnablaDisableControls(bolOnOff As Boolean, lngId As Long)
    Dim myCommandBar As CommandBar, myCommandBarControl As CommandBarControl
    On Error Resume Next
    For Each myCommandBar In Application.CommandBars
        Set myCommandBarControl = myCommandBar.FindControl(ID:=lngId, Recursive:=True)
        If Not myCommandBarControl Is Nothing Then myCommandBarControl.Enabled = bolOnOff
    Next
    Set myCommandBarControl = Nothing
End Sub
Public Sub prcDoNothing()
End Sub


Gruß
Nepumuk
Anzeige
AW: Kontextmenü abschalten geht so:
08.05.2005 15:40:14
Joerg
Hallo,
erstmal Dank an alle, jetzt muss ich die Lösungen in Ruhe durchsehen und die Sachen rausfischen, die für mich am wichtigsten sind.
Die letzte Frage die mir bleibt , ist die Autofill Funktion bei einer der Lösungen mit ausgeschaltet (ähnlich wie Drag und Drop ?
Nochmal Dank an alle
Gruss Joerg
Anzeige
;

Forumthreads zu verwandten Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Indirekt-Formel mit Wenn-Funktion?
Ingrid

Hallo, hab noch ein Problem...
Gibts auch die Möglichkeit diese Indirekt-Formel (wie schon in "Auto-Ausfüllen: Zelle gleich - anderes Tabellenblatt" besprochen) mit einer Wenn-Funktion zu versehen?
=INDIREKT("'" &ZEILE(D1) &"'!B16")
Wenn B16="" Dann C16
LG
Ingrid
11.09.2008 14:37:28
Thread-ID: 1009130
5 Beiträge
OptionButtons in Wenn-Funktion
Peter

Hallo zusammen,
ich möchte gerne eine WENN-Funktion schreiben, die beinhaltet:
=WENN("OptionButton1 auf Tabellenblatt 1"=Aktiv; Bezug zu Zelle A1 auf Tabellenblatt 2; WENN "OptionButton2 auf Tabellenblatt 1"=Aktiv; Bezug zu Zelle A2 auf Tabellenblatt 2;0))
Geht so was? Wie lautet...
15.09.2008 14:46:00
Thread-ID: 1009790
5 Beiträge
Formeln und Text
Juergen

Hallo all zusammen,
ich habe wieder einmal eine Frage:
kann man Formeln und Texte kombinieren?
Ich habe über Winkel;Bogenmaß den tangens der Winkel berechnet und möchte nun in dem Kombinationsfeld ersichtlich machen welcher tangens zu welchem Winkel gehört.
Z.B 0,364 = tan 20°
23.09.2008 18:08:11
Thread-ID: 1011848
8 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Formel, Index oder Vergleich
Kurt

Guten Abend Zusammen,
ich habe ein kleines Problem, ich möchte in der Zelle "O10" eine Zahl eingeben
aus den Zellen mit gelben Hintergrund.
Dann soll der Preis gefunden werden und reingesetzt, rechts daneben.
Ich habe mal ein Muster beigefügt:
https://www.herber.de/bbs/user/...
06.10.2008 18:26:46
Thread-ID: 1014519
14 Beiträge
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Textfelder über WENN-Funktion auslesen
Suchender

Liebe Experten,
ich habe ein Problem. Ich möchte über eine WENN (oder andere geeigentere Funktion) die Folgende Aufgabe lösen
Ausgangsinfo:
Blatt 1 enthält viele Werte, die über eine ID in Spalte 1 direkt zuordenbar sind; die anderen Spalten enthalten Texte die ich auslesen möchte u...
28.10.2008 15:01:00
Thread-ID: 1019965
3 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Wenn Funktion mit *
Stan

Hallo,
Ich habe eine WENN Funktion eingebaut die prüft Inhalt G2 und dann multipliziert andere Zellen.
Beispiel ==WENN(G2="A12";M2*4;WENN(G2="B12";M2*2;"Fehler")). Es kommen verschiedene Werte nach A und B vor (A12, A22, A27 usw.)
Kann ich nur erste Stelle Abfragen und die nächsten...
21.11.2008 13:27:00
Thread-ID: 1026711
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige