---

Hallo zusammen,
ist es in EXCEL2000 möglich eine neu erstellte Symbolleiste nur dann zur Verfügung zu stellen, wenn eine bestimmte Datei geöffnet wird?

Gruß Thomas

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

---

@Toto1901

Ja das geht:
Bei der Datei wo die spezielle Symbolleiste erscheinen soll,
folgenden Code im Visual Basic Editor unter

"DieseArbeitsmappe" eingeben:

Private Sub Workbook_Open()
Application.CommandBars("NameSymbolleiste").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("NameSymbolleiste").Visible = False
End Sub

"NameSymbolleiste" > hier den Namen deiner Symbolleiste eintragen.

Tschüß Frank!

[Diese Nachricht wurde von melzig am 23. Mrz. 2004 editiert.]

[Diese Nachricht wurde von melzig am 23. Mrz. 2004 editiert.]

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

---

Fehler.jpg

Hallo Frank,
erstmal ein dickes Danke (10Us)
aber jetzt hat meine Datei eine "Fehler" siehe Anhang...
ist nicht ganz so schlimm... kannst Du mir auch da wieter helfen wäre echt klasse.

Gruß Toto

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

---

Hi Toto,

zum 1. deinem eigentlichen Problem:
... ungetestet, IMHO muss da ein string stehen:
application.commandbars("Toto").visible = true ' achte auf die "" 

zum 2. Nebensache:
hier mal ein Auszug wie ich das immer gemacht habe, anders kann
ichs nun wieder nicht    
alles aufs workbook open Ereignis.

CU Nancy
--

Code:

---

Option Explicit
Private Sub Workbook_Open()
On Error Resume Next
Dim cb As CommandBar, cbb As CommandBarButton
Application.CommandBars.Add("Kalkulation")
  'BV auslagern
  Set cbb = Application.CommandBars("Kalkulation").Controls.Add()
  cbb.Caption = "BV auslagern"
  cbb.Style = msoButtonIcon
  cbb.FaceId = 3  'speichern
  cbb.OnAction = "macro" 'ruft sub macro() auf
  'BV anlegen/bearbeiten
  Set cbb = Application.CommandBars("Kalkulation").Controls.Add()
  cbb.Caption = "BV anlegen/bearbeiten"
  cbb.Style = msoButtonIcon
  cbb.FaceId = 18 'Neu
  cbb.OnAction = "macro" 'ruft sub macro() auf
Application.CommandBars("Kalkulation").Position = msoBarPopup
Application.CommandBars("Kalkulation").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Kalkulation").Delete
End Sub

Private Sub Workbook_Activate()
On Error Resume Next
Application.CommandBars("Kalkulation").Visible = True
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("Kalkulation").Visible = False
End Sub

sub macro()
msgbox "Reaktion"
end sub

---

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

---

Hi Nancy,
auch Dir ein dickes Danke,
ich habe jetzt auf die "" geachtet und siehe da es klappt.

Gruß Toto

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

---

@ Nancy

Auch eine schöne Variante und ich habe wieder etwas dazugelernt!

Tschüß Frank!

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