Office: (Office 2010) Kopieren, Ausschneiden, Einfügen und Format übertragen auch in der Menüleiste sperren

Hallo Excel Expertinnen und Experten!

Ich habe mir aus dem Internet die VBA-Programmierung für Kopieren und Einfügen in einer teilweise gesperrten Excel-Arbeitsmappe rausgesucht. Das Makro funktioniert nur zum Teil, den die Menüleiste "Start-Zwischenablage" (Kopieren, Ausschneiden und Einfügen) funktioniert immer noch.
Die Datei wird als Dienstreiseliste von allen Mitarbeitern genutzt und es sind einige Zellen nicht gesperrt zum Ausfüllen, nur wie es ebenso ist, einige kopieren hier lustig darauf los und die Liste hat natürlich einige Formeln und Formate die nicht einfach kopiert werden sollen.
So nun zu meinem Anliegen, kann mir jemand helfen das Makro so hinzubekommen, dass auch die Symbole in der Menüleiste nicht mehr aktiv sind oder eben einfach nicht mehr funktionieren, heißt KEIN "KOPIEREN, AUSSCHNEÌDEN und EINFÜGEN" möglich!

Hier mein Makro dies liegt auf Modul2:

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 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 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

Und in dieser Arbeitsmappe steht diese Programmierung:

Private Sub Workbook_Open()
Application.MoveAfterReturnDirection = xlToRight
Kopieren_Deaktivieren
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturnDirection = xlDown
Kopieren_Aktivieren
End Sub

Vorab schon mal Besten Dank für Eure Hilfe!
Leider hab ich noch keine Antworten auf meine Frage erhalten!?


Richard