Herbers Excel-Forum - das Archiv

Symbolleiste ein- und ausblenden

Bild

Betrifft: Symbolleiste ein- und ausblenden
von: Hans-Georg

Geschrieben am: 29.03.2005 18:00:09
Hallo Excellisten,
ich möchte in meiner Arbeitsmappe alle Symbolleisten ausblenden, habe aber festgestellt, dass wenn ich eine neue Exceltabelle öffne, auch dort die Symbolleisten ausgeblendet sind.
Es müsste also ein Macro geben, dass in meiner Tabelle gültig ist und die Symbolleiste ausblendet, wenn ich eine neue Tabelle öffne sollten die Symbole aber wiede da sein.
Ich habe schon versucht ein Macro über den Macrorecorder zu erstellen, aber ohne nennenswerten Erfolg.
Wer kann helfen ?
Hans-Georg
Bild

Betrifft: AW: Symbolleiste ein- und ausblenden
von: K.Rola

Geschrieben am: 29.03.2005 18:19:03
Hallo,
so z.B.:
Option Explicit
Dim cb As CommandBar
Private Sub Workbook_Activate()
For Each cb In Application.CommandBars
cb.Enabled = False
Next
End Sub
Private Sub Workbook_Deactivate()
For Each cb In Application.CommandBars
cb.Enabled = True
Next
End Sub

Gruß K.Rola

Der Fleiß ist die Wurzel aller Häßlichkeit.

Oscar Wilde


Bild

Betrifft: VBA Frage
von: Hans-Georg
Geschrieben am: 29.03.2005 18:23:36
Hallo K.Rola,
leider weiß ich nicht wohin mit dem Code !
Einfügen wo ??
Gruss
Hans-Georg
Bild

Betrifft: AW: VBA Frage
von: K.Rola
Geschrieben am: 29.03.2005 18:51:37
Hallo,
ins Modul von "DieseArbeitsmappe" kopieren.
Gruß K.Rola
Bild

Betrifft: AW: Symbolleiste ein- und ausblenden
von: GraFri

Geschrieben am: 29.03.2005 18:24:30
Hallo
Vielleicht hilft dir folgender Code weiter.


      
'-----------------------------------------------
' In DieseArbeitsmappe

Option Explicit
Private Sub Workbook_Open()
' Aufruf zum ausblenden
  Call Modul1.cbAus
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Aufruf zum einblenden
  Call Modul1.cbAus
End Sub
Private Sub Workbook_Activate()
' Aufruf zum ausblenden
  Call Modul1.cbAus
End Sub

Private Sub Workbook_Deactivate()
' Aufruf zum einblenden
  Call Modul1.cbEin
End Sub
'-----------------------------------------------

'-----------------------------------------------
'In ein Modul

Option Explicit
Dim myCollection    As New Collection
Dim cb              As CommandBar
Sub cbAus()
    
    
On Error Resume Next
' Blendet alle Symbolleisten aus
    For Each cb In Application.CommandBars
        
If cb.Visible Then
            myCollection.Add cb
            cb.Enabled = 
False
            cb.Visible = 
False
        
End If
    
Next cb
    
End Sub
Sub cbEin()
' Blendet alle Symbolleisten ein
    If myCollection.Count Then
        
For Each cb In myCollection
            cb.Enabled = 
True
            cb.Visible = 
True
        
Next
    
End If
    
End Sub
'-----------------------------------------------
 

     Code eingefügt mit Syntaxhighlighter 3.0

Bei weiteren Fragen einfach melden.
mfg, GraFri
 Bild
Excel-Beispiele zum Thema "Symbolleiste ein- und ausblenden"
Symbolleiste sichern Symbolleistenschaltfläche hinzufügen
Symbolleisten ein-/ausblenden Position der Symbolleiste festlegen
Löschen überflüssiger Symbolleisten Alle Menüs und Symbolleisten ausblenden
Beim Öffnen neue Symbolleiste Benutzerdefiniertes Symbol in neue Symbolleiste einfügen
Symbolleisten beim Öffnen aus-, beim Schließen einblenden Prüfung, ob eine Symbolleiste existiert