„Zellen einfügen“ und „Zellen löschen“ aus Kontextmenü entfernen


Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 1997

Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 1997

Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 1997

Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 1997

Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 1997

Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 1997

Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 1997

Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 1997

Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 2009

Warning: Illegal string offset 'status_txt' in /www/htdocs/w00cea89/woppr/wp-content/plugins/share-and-follow/share-and-follow.php on line 2036

Folgende VBA Funktion entfernt in Excel die Anzeige der „Zellen einfügen“ und „Zellen löschen“ Option aus dem Kontextmenü. Getestet in Excel 2007 und Excel 2003.

Sub entfernen()
   '"Zelle Einfügen" im Zellen-Bereich entfernen
   Application.CommandBars("Cell").Controls(5).Visible = False
   '"Zelle Löschen" im Zellen-Bereich entfernen
   Application.CommandBars("Cell").Controls(6).Visible = False
   '"Zelle Einfügen" im Heading-Bereich entfernen
   Application.CommandBars("Row").Controls(5).Visible = False
   '"Zelle Löschen" im Heading-Bereich entfernen
   Application.CommandBars("Row").Controls(6).Visible = False
End Sub

Der Eintrag wird hierbei nicht gelöscht, sondern nur auf invisible gesetzt. Zum Löschen kann der Befehl nach folgendem Schema umgeschrieben werden:

Application.CommandBars("Cell").Controls(6).Delete

Zum Widerherstellen der Kontextmenüs kann folgende vba-Funktion verwendet werden:

Sub reset_commandbars()
   Application.CommandBars("Row").Reset
   Application.CommandBars("Cell").Reset
End Sub

vorher: nachher:

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.