Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub
Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars("Cell").Controls("Kommentar löschen").Delete
Application.CommandBars("Cell").Controls("Kommentar bearbeiten").Delete
End Sub
Gruß