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

Beiträge aus den Excel-Beispielen zum Thema "Symbolleiste ein- und ausblenden"