VBA
11.01.2006 21:44:55
TAy
ich habe "versucht" in VBA folgendes umzusetzen:
ZIEL:
i) Beim Aufruf einer Excel-Datei sollen, bei allen vorhandenen Tabellenblättern, die
- Headings
- HorizontalScrollBar
- WorkbookTabs
- etc.
ausgeblendet werden, so dass nur die Zellen zusehen sind.
ii) Beim verlassen des Programms sollen diese wieder eingeblendet werden.
PROBLEM:
i) Auf dem aktiven Tabellenblatt wird alles ausgeblendet, jedoch bei den restlichen bleiben die Zellen- bzw. Spaltenbezeichnungen noch eingeblendet.
ii) Die vormals aktiven Symbolleisten werden nicht wiederhergestellt.
FRAGE:
Wie muss ich mein "VBA-Programm" ändern/ergänzen ?
DANKE für Lösungsvorschläge !
Sub TurnOffTB()
On Error Resume Next
Application.EnableCancelKey = xlDisabled
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayStatusBar = False
Dim i
For Each i In Application.Toolbars
i.Visible = False
Next i
Application.DisplayFormulaBar = False
Application.DisplayNoteIndicator = True
Application.WindowState = xlMaximized
Dim ii
For Each ii In Application.Toolbars
ii.Visible = False
Next ii
End Sub
Sub TurnOnTB()
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableCancelKey = xlDisabled
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Application.DisplayNoteIndicator = True
Toolbars(1).Visible = True
Toolbars(2).Visible = True
With Application
.ShowToolTips = True
.LargeButtons = False
.ColorButtons = True
End With
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
End Sub