Sub
Test()
Application.CellDragAndDrop =
True
Application.OnKey
"^x"
,
""
Application.OnKey
"^c"
,
""
Application.OnKey
"^v"
,
""
Application.OnKey
"+{DEL}"
,
""
Application.OnKey
"+{INSERT}"
,
""
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