---

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

---

Hallo Jürgen,

wenn du die Symbolleiste, an statt von Hand zu schnitzen gleich zur Laufzeit per Code erzeugt hättest, wäre die Frage nie aufgetaucht.

------------------
Gruß
Nepumuk 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP