Symbolleiste bedingt anzeigen

beim Öffnen meiner Mappe wird eine Symbolleiste mit div.Buttons
erzeugt.

Beim Schließen der Mappe wird diese Symbolleiste wieder gelöscht.

Nun möchte ich zwei Dinge erreichen:

1. Die Symbolleiste soll nur angezeigt werden, wenn die Mappe
im aktiven Fenster sichtbar ist.

Wenn man also über FENSTER eine im Hintergrund bereits
geöffnete Mappe aktiviert, soll die Symbolleiste nicht an-
gezeigt werden.

2. Der Button7 soll deaktiviert (Enabled = False erscheinen,
wenn kein AutoFilter aktiv ist.

Ich bekomme das irgendwie nicht hin.

Vielen Dank

Ciao MikeS

CODE:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
       Application.CommandBars("    Navigationshilfe").Delete
End Sub

Private Sub Workbook_Open()
      Dim Menue
      Dim Button1, Button2, Button3, Button4, Button5, Button6, Button7
      
      Set Menue = Application.CommandBars.Add(Name:="    Navigationshilfe", Temporary:=True)
            With Menue
                  .Visible = True
                  .Top = 113
                  .Left = 2.5
            End With
      
      Set Button1 = Menue.Controls.Add(Type:=msoControlButton, Before:=1, Temporary:=True)
            With Button1
                  .Style = msoButtonIconAndCaption
                  .Caption = "erste Zeile"
                  .FaceId = 594
                  .OnAction = "ErsteZelle"
            End With
      
      Set Button2 = Menue.Controls.Add(Type:=msoControlButton, Before:=2, Temporary:=True)
            With Button2
                  .Style = msoButtonIconAndCaption
                  .Caption = "letzte Zeile"
                  .FaceId = 597
                  .OnAction = "GoToEnde"
            End With
      
      Set Button3 = Menue.Controls.Add(Type:=msoControlButton, Before:=3, Temporary:=True)
            With Button3
                  .Style = msoButtonIconAndCaption
                  .Caption = "erste Spalte"
                  .FaceId = 154
                  .OnAction = "GeheNachLinks"
                   .BeginGroup = True
            End With
      
      Set Button4 = Menue.Controls.Add(Type:=msoControlButton, Before:=4, Temporary:=True)
            With Button4
                  .Style = msoButtonIconAndCaption
                  .Caption = "letzte Spalte"
                  .FaceId = 157
                  .OnAction = "GeheNachRechts"
            End With
      
      Set Button5 = Menue.Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
            With Button5
                  .Style = msoButtonIconAndCaption
                  .Caption = "nächste TNR."
                  .FaceId = 129
                  .OnAction = "NächsteTeilenummer"
                  .BeginGroup = True
            End With
      
      Set Button6 = Menue.Controls.Add(Type:=msoControlButton, Before:=6, Temporary:=True)
            With Button6
                  .Style = msoButtonIconAndCaption
                  .Caption = "vorherige TNR."
                  .FaceId = 128
                  .OnAction = "VorigeTeilenummer"
            End With
      
      Set Button7 = Menue.Controls.Add(Type:=msoControlButton, Before:=7, Temporary:=True)
            With Button7
                  .Style = msoButtonIconAndCaption
                  .Caption = "alle Filter deaktivieren"
                  .FaceId = 605
                  .OnAction = "AlleFilterEntfernen"
                  .BeginGroup = True
            End With
End Sub

Sub AlleFilterEntfernen()
      With ActiveWorkbook.ActiveSheet
            On Error GoTo Abbruch
            .ShowAllData
            MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, "   Filter deaktiviert"
            Exit Sub
      End With

Abbruch:
      
     MsgBox "Es ist kein Auto-Filter aktiv!", vbOKOnly, "   Filter deaktiv"
End Sub