ich verwende folgenden Code um im Worksheet 'Daten' das Einfügen von ganzen Zeilen zu verhindern.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Daten" Then
Application.CommandBars("Worksheet Menu Bar").Controls(4).Controls(2).Enabled = False
Application.CommandBars("Row").Controls(5).Enabled = False
Else
Application.CommandBars("Worksheet Menu Bar").Controls(4).Controls(2).Enabled = True
Application.CommandBars("Row").Controls(5).Enabled = True
End If
End Sub
Das funktioniert auch gut soweit. Habe noch nicht viel mit Menüleisten und dergleichen programmiert, daher meine Frage:
Wenn nun (bei mir in Englisch) der Menüpunkt 'Insert' nicht Index 2 der Menüleiste und 'Rows' nicht der Index 4 im Popup 'Insert' ist, wird ja der falsche Befehl gesperrt. Kann ich den entsprechenden Eintag auch irgendwie ansprechen, dass ich sicher sein kann, dass er es ist?
Selbiges gilt natürlich auch für das Kontextmenü ("Row").
Gruß
Bertram