Hallo liebe Excel-Gemeinde.
Vielen Dank allen, die sich auf meinen Hilferuf "Anbindung von Sub an ...." vom 16.07.07 mit ihren Tipps gemeldet haben. In der Zwischenzeit habe ich weiter Gehirnschmalz gebraten und endlich die "echte" Lösung gefunden. Die Sub's müssen nämlich, wie nachfolgend dargestellt, beim Öffnen der Datei den Schaltflächen in der neuen Symbolleiste "Blattschutz für Neigungen" zugewiesen werden:
Private Sub Workbook_Open()
Application.CommandBars("Blattschutz für Neigungen").Controls
(1).OnAction = "Blattschutz_dieses_ja"
Application.CommandBars("Blattschutz für Neigungen").Controls
(2).OnAction = "Blattschutz_dieses_nein"
'usw.
Application.CommandBars("Blattschutz für Neigungen").Visible =
True
End Sub
Damit ist gewährleistet, das auch bei Umbenennung einer Datei die richtigen Sub's, nämlich die aus der umbenannten Datei (und nicht jene aus der ursprünglichen Datei) an die Schaltflächen angebunden sind.
Beste Grüße
Jürgen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP