Hallo Michael,
nachfolgend noch eine andere Lösungsmöglichkeit.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Funktion_Ausschneiden_ausschalten()
With Application
'In Menue "Bearbeiten" die Funktion "Ausschneiden" deaktivieren
.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Controls("Ausschneiden").Enabled = False
'In Symbolleiste "Standard" die Funktion "Ausschneiden" deaktivieren
.CommandBars("Standard").FindControl(ID:=21).Enabled = False
'In Kontextmenü der rechten Maustaste die Funktion "Ausschneiden" deaktivieren
.CommandBars("Cell").Controls("Ausschneiden").Enabled = False
'Tasetenkombination "STRG + X" deaktivieren
.OnKey "^x", ""
'Menüleistenfunktion "Anpassen" ab Excel 2002 deaktivieren
If Val(Application.Version) > 9 Then .CommandBars.DisableCustomize = True
End With
End Sub
Sub Funktion_Ausschneiden_einschalten()
With Application
'In Menue "Bearbeiten" die Funktion "Ausschneiden" deaktivieren
.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Controls("Ausschneiden").Enabled = True
'In Symbolleiste "Standard" die Funktion "Ausschneiden" deaktivieren
.CommandBars("Standard").FindControl(ID:=21).Enabled = True
'In Kontextmenü der rechten Maustaste die Funktion "Ausschneiden" deaktivieren
.CommandBars("Cell").Controls("Ausschneiden").Enabled = True
'Tasetenkombination "STRG + X" deaktivieren
.OnKey "^x"
'Menüleistenfunktion "Anpassen" ab Excel 2002 deaktivieren
If Val(Application.Version) > 9 Then .CommandBars.DisableCustomize = False
End With
End Sub
Was genau deaktiviert wird, steht in den auskommentierten Texten in den Makros.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf
meiner HP in der
Rubrik Anleitungen und dort dann in der
Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]