Symolleisten
11.12.2005 11:15:02
Günther
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