Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Symbolleisten beim Öffnen automatisch ausblenden

Forumthread: Symbolleisten beim Öffnen automatisch ausblenden

Symbolleisten beim Öffnen automatisch ausblenden
19.11.2004 10:17:30
Harry
Hallo VBA-Spezialisten !
Wie lautet der VBA-Code um alle Symbolleisten beim Öffnen der Datei automatisch auszublenden und beim bzw. vor dem Speichern/Schliesen der Datei automatisch wieder einzublenden (damit diese in anderen Exceldatei eingeblendet sind) ?
Ich hoffe, mir kann jemand helfen !
Gruß, Harry
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Symbolleisten beim Öffnen automatisch ausblend
19.11.2004 10:36:01
Nico
Moin Harry
Die Standard-Symbolleiste (Datei - Bearbeiten...) kannst du mit
Application.CommandBars(1).Enabled = False
ausblenden. Alle anderen kannst du ja mit nem Makro aufzeichnen und dir dann den Code angucken und ggfls. anpassen.
Gruß
Nico
AW: Symbolleisten beim Öffnen automatisch ausblend
Josef
Hallo Harry!
Probier mal.
Diesen Code in das Modul "DieseArbeitsmappe"

Private Sub Workbook_Activate()
alleAus
End Sub



Private Sub Workbook_Deactivate()
alleEin
End Sub

Und diesen in ein allgemeines Modul.
Option Explicit
Option Base 1
Public barArr() As Boolean
Public FormBar As Boolean
Sub alleAus()
Dim iCnt As Integer
With Application
ReDim barArr(.CommandBars.Count)
For iCnt = 1 To .CommandBars.Count
barArr(iCnt) = .CommandBars(iCnt).Enabled
.CommandBars(iCnt).Enabled = False
Next
FormBar = .DisplayFormulaBar
.DisplayFormulaBar = False
End With
End Sub
Sub alleEin()
Dim iCnt As Integer
With Application
For iCnt = 1 To .CommandBars.Count
.CommandBars(iCnt).Enabled = barArr(iCnt)
Next
.DisplayFormulaBar = FormBar
End With
End Sub
Gruß Sepp
Anzeige
AW: Symbolleisten beim Öffnen automatisch ausblenden
Ulf 
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

Ulf
Anzeige
Klappt ! Vielen Dank an Nico & Ulf
19.11.2004 10:47:20
Harry
Gruß, Harry

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige