Commandbutton ansprechen

Sub Löschen_Button()
Dim tarCell As Range
Set tarCell = Range("L5:N6")
ActiveSheet.Buttons.Add(0, 0, 0, 0).Select
With Selection
.Top = tarCell.Top
.Left = tarCell.Left
.Height = tarCell.Height
.Width = tarCell.Width
.Text = "Auftrag löschen"
.OnAction = "Modul1.auftragloeschen"
.Locked = True
End With
ActiveSheet.Protect                        ' Button ist standardmäßig gesperrt
Sheets("Vorlage").Activate
End Sub

Will den Button standardmäßig sperren - wie auch das gesamte Blatt gegen Bearbeitung gesperrt ist, wenn man es über die Register unten anklickt(zur Sicherheit gegen User Fehler und so ;) ).
Auf meinem Standardtabellenblatt (aus dem auch die Kopie auf ein neues erfolgt, habe ich zusätzlich eine Suchen-Funktion die die erstellen Tabellenblätter entsperrt und aktiviert - mein problem ist nur, dass eben egal wie ich es mache die Buttons nicht entsperrt werden - Andere Möglichkeiten wären evtl. .visible enabled wohl nur bedingt.
Grüße