menübefehle/symbole deaktivieren

Sub ButtonsAus()
Dim ctrl As CommandBarPopup
Dim ident As Integer
For ident = 19 To 22
Set ctrl = _
Application.CommandBars.FindControl(ID:=ident)
If ctrl Is Nothing Then Else ctrl.Enabled = False
Next
End Sub

für die Menübefehle ausschneiden, kopieren, einfügen und...

Sub MakroSymbolAus()
Dim cmb As CommandBar
Set cmb = CommandBars("Standard")
With cmb
.Controls("Makro aufzeichnen").Enabled = False
.Controls("Makro ausführen").Enabled = False
.Controls("Visual Basic-Editor").Enabled = False
End With
End Sub

...für die entsprechenden VBA Symbole, es klappt aber nicht.
Wo ist der Fehler?
Für einen kurzen Tipp bedanke ich mich in Voraus.
MfG
Ioannis