Office: Ausschneiden in Excel verhindern/unterdrücken

Hallo,

ich möchte gerne verhindern, dass die Benutzer einer Excel-Kalkulation Zellen ausschneiden können.

Grund: wird z.B. die Zelle A2 ausgeschnitten und der Inhalt in A1 eingefügt, so gehen die Bezüge auf A1 "kaputt". Kopiert der Benutzer A2 und fügt den Inhalt in A1 ein, ist alles in Ordnung - er muss danach nur noch A2 löschen.

Was muss ich also tun, um die Funktionalität des Auschneidens generell für die Excel-Kalkulation zu unterbinden.
Bsw: in Word habe ich dies bereits mal mit dem Überschreiben der Methode EditCut() geschafft - hat aber leider in Excel nicht funktioniert.

Vielen Dank!

Gruß Stefan

:)

 

Hallo Stefan,

Schau Dir doch mal die Blattschutz Funktionen an.

 

Mit dem Blattschutz komme ich nicht weiter, da die betreffenden Zellen gerade nicht geschützt sein dürfen. Zudem habe ich dort nicht zu Unterdrückung der Ausschneide-Operation gefunden.

Schade.

Hat noch jemand eine Idee, wie mann das Ausschneiden im Excel unterbinden kann.

Danke & Gruß
Stefan

 

Moin, Stefan,

Code hinter die betreffende Tabelle:

Code:

 

Hallo Jinx,

wie müsste der Code sein, das weder einzelne Zelle(n) noch ganze Zeilen/Spalten gelöscht werden können.

Ich habe es mit der Makro-Aufzeichnung und deinem Code versucht .... - hat aber leider nicht geklappt.

Vielen Dank im Voraus ..
Gruß Etron

 

Moin, Etron795,

Du müsstest die Markierung jegweder ganzer Zeilen bzw. Spalten verhindern - Ansatz dazu sollte das Worksheet_SelectionChange-Ereignis sein, ein Beispiel dazu habe ich zur Zeit nicht abrufbar, müsste ich bei Bedarf suchen (kann dann bis zum Wochenende dauern).

 

Hallo Jinx,

vielen Dank!

Nur kein Stress *wink.gif*

Gruß Etron

 

hiho

Code:

 

Hallo Chris,

vielen Dank.

Meine VBA Kenntnisse sind aber - Anfänger = unwissend.
Ich habe probleme beim Bereich anpassen ( in deinem Code die Spalte A = 1) möchte ich auf die Spalten A : AE anpassen. Ich habe es mit 30 / 1:30 und mit 1, 2, usw. versucht - nichts geht.

Habe ich in ein MODUL eingefügt ... - Richtig ?

Habe ich in dem entsprechenden Tabellenblatt eingefügt ...

Im Arbeitsblatt eingefügt ...

Gruß Etron

 

hiho

ich habe Dir mal eine Bsp.Mappe gemacht

 

Hallo Chris,

Super *Smilie - Vielen Dank

Gruß Etron

 

Vielen Dank - der Code funktioniert prima und erzielt genau den Effekt, den ich brauche.

Gruß Stefan

 

Hallo Chris,
ich habe Excel 2013 und möchte das kopieren von Zellen verhindern, da mir sonst meine bedingte Formatierungen die durch einen hinterlegten Kalender gesteuert werden, kaputt gehen.
Ich habe hier folgendes Makro für die VBA gefunden, nur leider funktioniert es nicht richtig.
In der Menüleiste oben links kann man immer noch kopieren und ausschneiden.
Ziel soll sein, dass die Nutzer die Zellen zwar auswählen und das Dropdown auswählen können, dann aber nicht die Zellen kopieren und in anderen Zellen einfügen können.
Wichtig wäre auch, das es nur in dieser Arbeitsmappe aktiv ist.

Danke schon einmal im Voraus

Gruß Micha

Sub Kopieren_Aktivieren()
'Tastenkombinationen einschalten
Application.OnKey "^x"
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"

'Drag & Drop wieder erlauben
Application.CellDragAndDrop = True

'Schaltflaechen in Menüleiste => Bearbeiten aktivieren
procControlEnableDisable 21, True ' Ausschneiden
procControlEnableDisable 19, True 'Kopieren
procControlEnableDisable 22, True 'Einfuegen
procControlEnableDisable 755, True 'Inhalte einfuegen
procControlEnableDisable 809, True 'Office-&Zwischenablage

End Sub

Sub Kopieren_Deaktivieren()
'Tastenkombinationen deaktivieren
Application.OnKey "^x", ""
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""

'Drag & Drop ausschalten
Application.CellDragAndDrop = False

'Schaltflaechen in Menüleiste => Bearbeiten deaktivieren
procControlEnableDisable 21, False ' Ausschneiden
procControlEnableDisable 19, False 'Kopieren
procControlEnableDisable 22, False 'Einfuegen
procControlEnableDisable 755, False 'Inhalte einfuegen
procControlEnableDisable 809, False 'Office-&Zwischenablage

End Sub

Sub procControlEnableDisable(intId As Integer, _
bolStatus As Boolean)
Dim cmbSuche As CommandBar
Dim cmbcSteuerelement As CommandBarControl
On Error Resume Next
For Each cmbSuche In Application.CommandBars
Set cmbcSteuerelement = _
cmbSuche.FindControl(ID:=intId, recursive:=True)
If Not cmbcSteuerelement Is Nothing Then
cmbcSteuerelement.Enabled = bolStatus
End If
Next
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Kopieren_Aktivieren
End Sub

Private Sub Workbook_Open()
Kopieren_Deaktivieren
End Sub

 

Hi,

kann damit auch nicht funktionieren, da dies ein Code für die Version 2003 war und die Menüführung sich doch wesentlich geändert hat.
Da müsste wohl noch zusätzlich mit

 

Blattschutz geht nur bedingt, da einzelne Zellen zum bearbeiten aktiv sein müssen. Oder gibt es einen Blattschutz der das auswählen von Dropdown Zellen ermöglicht, aber sonstige arbeiten wie kopieren usw, verhindert??? ich habe nichts gefunden.
Der Code funktioniert so leider nicht. Werde aber noch daran arbeite....mal sehen was dabei rauskommt.
Trotzdem vielen Dank für deine Hilfe
Gruß Micha