Hier mal das Listing. Allerdings funktioniert es so derzeit noch nicht (also die Einzelmakros schon):
Sub auto_open()
Application.Run Macro:="Aufgabenplanung_2002_ab_0802-test.xls!ZelleNein"
Application.Run Macro:="Aufgabenplanung_2002_ab_0802-test.xls!ZeileNein"
Application.Run Macro:="Aufgabenplanung_2002_ab_0802-test.xls!KontextEinfNein"
Application.Run Macro:="Aufgabenplanung_2002_ab_0802-test.xls!KontextLoeschNein"
Application.Run Macro:="Aufgabenplanung_2002_ab_0802-test.xls!ZeileKontextEinfNein"
Application.Run Macro:="Aufgabenplanung_2002_ab_0802-test.xls!ZeileKontextLoeschNein"
Application.Run Macro:="Aufgabenplanung_2002_ab_0802-test.xls!SpalteKontextEinfNein"
Application.Run Macro:="Aufgabenplanung_2002_ab_0802-test.xls!SpalteKontextLoeschNein"
End Sub
Sub ZelleNein()
Application.CommandBars("Worksheet Menu Bar"). _
Controls("Einfügen").Controls("Zellen").Enabled = False
End Sub
Sub ZeileNein()
Application.CommandBars("Worksheet Menu Bar"). _
Controls("Einfügen").Controls("Zeilen").Enabled = False
End Sub
Sub KontextEinfNein()
CommandBars("Cell").Controls(5).Enabled = False
End Sub
Sub KontextLöschNein()
CommandBars("Cell").Controls(6).Enabled = False
End Sub
Sub ZeileKontextEinfNein()
CommandBars("Row").Controls(5).Enabled = False
End Sub
Sub SpalteKontextEinfNein()
CommandBars("Column").Controls(5).Enabled = False
End Sub
Sub ZeileKontextLöschNein()
CommandBars("Row").Controls(6).Enabled = False
End Sub
Sub SpalteKontextLöschNein()
CommandBars("Column").Controls(6).Enabled = False
End Sub