Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
Klappt ! Vielen Dank an Nico & Ulf
19.11.2004 10:47:20
Harry
Gruß, Harry

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige