Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Symolleisten

Symolleisten
11.12.2005 11:15:02
Günther
Moin Moin
Liebe Excelexperten
Ich habe eine Datei mit 25 Tabellenblätter,
habe jetzt wenn ich auf dem Schaltfläche Symolleisten_weg klicke,
sind alle Blätter aus geschaltet, aber nicht,
die Blildlaufleisten, Blattregister und Glitternetzlinien,
der anderen 24 Blätter bleiben bestehen.
Wie muß ich den Code anpassen, wenn ich alles ausschalten und
einschalten möchte für alle 25 Blätter.

Sub Sym_Leisten_weg()
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
End Sub


Sub Sym_Leisten_herstellen()
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
End Sub

Office 2000 Spa2
Gruß Günther

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Symolleisten
11.12.2005 11:27:36
Matthias
Hallo Günther,
so:

Sub Sym_Leisten_weg()
Dim Sh As Worksheet
Dim ShA As Worksheet
Set ShA = ActiveSheet
For Each Sh In Sheets
Sh.Select False
Next Sh
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
ShA.Select
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
End Sub
Sub Sym_Leisten_herstellen()
Dim Sh As Worksheet
Dim ShA As Worksheet
Set ShA = ActiveSheet
For Each Sh In Sheets
Sh.Select False
Next Sh
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
ShA.Select
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
End Sub

Gruß Matthias
Anzeige
AW: Symolleisten
11.12.2005 18:33:38
Günther
Moin Moin
Danke hat Super geklappt.
Mfg
frohes Fest
Günther

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige